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PREFACE 


In  April  1967,  the  Office  of  the  Assistant  Secretary  of  Defense 
(Manpower  and  Reserve  Affairs)  formed  a  Pilot  Advisory  Committee  to 
study  "Pilots  as  a  National  Resource."  The  Committee  consisted  of  the 
Assistant  Secretary  and  a  representative  of  each  of  the  three  Services. 
Staff  members  from  Rand  were  invited  to  attend  the  early  meetings  of 
the  Committee.  The  outgrowth  was  that  the  Air  Force  member  requested 
Rand  to  accept  responsibility  for  examining  the  Air  Force  pilot  train¬ 
ing  process.  The  objective  of  the  Rand  Pilot  Training  Study  was  to  de¬ 
velop  a  series  of  computer  models  for  use  in  estimating  the  resources 
required  to  produce  pilots  and  the  costs  of  training  them.  Further, 
the  models  were  to  be  designed  for  sensitivity  analyses  and  long-range 
planning. 

For  the  convenience  of  readers  whose  Interests  nay  not  extend  to 
all  aspects  of  the  pilot  training  process,  the  results  of  the  study  are 
presented  in  eight  volumes,  as  follows: 


Volume 

I 

RM-6080-PR 

The  Pilot  Training  Study;  Personnel  Flow  and  the 
PILOT  Model,  by  W.  E.  Mooz. 

II 

RM-6081-PR 

The  Pilot  Training  Study;  A  User's  Guide  to  the 

PILOT  Model,  by  Lois  Littleton. 

III 

RM-6082-PR 

The  Pilot  Training  Study;  Precommissioning  Train¬ 
ing,  by  J.  W.  Cook. 

IV 

RM-6083-PR 

The  Pilot  Training  Study:  A  Cost-Estimating  Model 
for  Undergraduate  Pilot  Training,  by  S.  L.  Allison. 

V 

RM-6084-PR 

The  Pilot  Training  Study;  A  User’s  Guide  to  the 
Undergraduate  Pilot  Training  Model,  by  Lois  Littleton. 

VI 

RM-6085-PR 

The  Pilot  Training  Study:  Advanced  Pilot  Training, 
by  P.  J.  Kennedy. 

VII 

RM-6086-PR 

The  Pilot  Training  Study:  A  Cost-Estimating  Model 
for  Advanced  Pilot  Training,  by  L.  E.  Knollaeyer. 

VIII 

RM-6087-PR 

The  Pilot  Training  Study:  A  User’s  Guide  to  the 
Advanced  Pilot  Training  Computer  Cost  Model  (APT) , 
by  H.  S.  Boren,  Jr. 
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This  Memorandum,  Voltse  II  of  the  series ,  describes  the  computer 
program  for  s  pilot  flow  simulator  celled  the  PI  IDT  Model.  As  ex¬ 
plained  in  Volume  1,  the  F1L0T  model  is  a  representation  of  the  flow 
of  pilots  through  the  training  process — precoanlssloning ,  and  under¬ 
graduate  and  advanced  pilot  training.  The  model  also  simulates  the  move¬ 
ment  of  pilots  to  and  from  their  subseque'  t  assignments,  that  is,  the 
flow  of  pilots  into  and  out  of  desk  jobs,  flying  jobs,  and  the  advanced 
training  schools  to  which  they  are  sent  for  the  additional  instruction 
(cross-training)  required  to  qualify  them  to  fly  e  different  type  and 
model  of  aircraft.  It  is  suggested,  therefore,  that  the  user  read  Vol¬ 
ume  I  for  an  understanding  of  the  total  process  of  training  USAF  pilots.- 
The  PILOT  model  may  be  used  to  estimate  the  effects  of  alternative 
policies  on  these  pilot  flows  and  the  effect  of  these  flows.  In  turn, 
upon  training  rates.  The  PILOT  model  may  also  be  used  in  combination 
with  (used  to  provide  inputs  to)  the  models  representing  pre commission¬ 
ing  training  and  undergraduate  and  advanced  pilot  training  activities. 
This  coupling  of  the  Individual  pilot  training  models  provides  a  simu¬ 
lation  of  the  entire  Air  Force  training  process  that  may  be  used  to 
estimate  the  overall  impact  upon  coats  of  pilot  training  alternatives. 
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SUMMARY 


This  Memorandum  is  a  manual  or  guide  for  users  of  the  PILOT  model. 
Section  I  is  an  Introductory  explanation  of  the  purposes  of  the  model. 
Sections  II  and  III  describe  the  data  inputs  and  program  outputs.  They 
provide  a  listing  of  a  sample  input  deck  and  a  sample  printout  of  each 
of  the  six  sets  of  output  data.  Section  IV  is  a  detailed  explanation, 
illustrated  by  flowcharts,  of  the  routines  Involved  in  entering  the 
data  inputs,  computing  requirements  for  new  pilots  and  for  cross-training 
of  pilots,  searching  for  means  by  which  to  fill  the  requirements,  and 
confuting  commission  training  entrants  and  graduates. 

The  PILOT  model  program  was  written  in  FORTRAN  IV.  It  uses  116K 
bytes  of  core  on  a  360/65  computer.  As  indicated  above,  all  input  data 
is  read  from  cards  and  the  output  is  printed. 

The  final  section  of  the  Memorandum  presents  a  symbolic  listing 
of  the  FORTRAN  IV  computer  program. 
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INTRODUCTION 


The  purpose  of  Che  PILOT  model  is  to  simulate  the  flcv  of  pilots 
through  formal  training  and  into  the  jobs  in  which  they  are  required. 
Air  Force  formal  training  for  the  production  of  pilots  consists 


1.  Air  Force  Academy  (AFA),  Reserve  Officer  Training  Corps  (ROTC) 
and  Officer  Training  School  (OTS)  programs.  The  Preccaad.ssion- 
ing  Training  programs  are  treated  as  a  part  of  the  pilot  train- 
ing  process  because  only  commissioned  officers  are  admitted 

to  pilot  training.  (The  PILOT  aodel  computer  program  refers 
to  the  Pre commissioning  Training  programs  as  "commission 
training.") 

2.  Undergraduate  Pilot  Training  (UPT).  After  receiving  his  com¬ 
mission,  the  pilot  candidate  is  given  flying  training  at  one 
of  ten  UPT  bases.  It  is  through  successful  completion  of  this 
program  that  he  earns  his  pilot's  wings. 

3.  Survival  School  (SS).  This  school  provides  instruction  In 
basic  techniques  of  survival  in  physically-  or  politically- 
hostile  environments.  This  training  is  mandatory  for  all 
flight  crews. 

4.  Advanced  Pilot  Training  (APT).  This  training  qualifies  the 
pilot  to  fly  a  specific  type  and  model  of  operational  aircraft. 
It  is  conducted  by  organizations  referred  to,  variously,  as 
Combat  Crew  Training  Schools  (CCTS),  Replacement  Training  Units 
(RTU)  or  Transport  Training  Units  (TTU) ,  or  by  the  general 
designation  of  Advanced  Pilot  Training.  (In  the  PILOT  model 
computer  program,  all  advanced  pilot  training  is  referred  to 
simply  as  CCTS.) 

Given  the  nuaber  of  trained  pilots  required  over  a  specified  time 
period  and  a  statement  of  the  policy  concerning  flcv  of  pilots  between 
desk  and  flying  assignments,  the  computer  program  determines  st  what 
times  and  in  what  numbers  pilots  must  enter  and  leave  the  various  train¬ 
ing  courses  in  order  to  meet  the  requirement. 

The  program  can  process  requirements  for  a  maximum  of  20  years, 

80  aircraft  systems  and  3  categories  of  pilots. 


“Pilots  arc  assumed  to  be  required  ia  both  flying  sr*d  nonflying 

jobs. 
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II,  PROGRAM  INPUT  DECK 


Is  this  section,  the  format  for  each  card  type  in  the  input  deck 
is  illustrated  and  the  naaes  of  the  data  inputs  are  defined. 

The  input  deck  setup  is  as  follows: 

1.  Run  title  card. 

2.  One  type  1  card. 

3.  One  type  2  card. 

4.  One  type  4  card  for  each  weapon  system. 

5.  One  type  6  card  followed  by  a  set  of  type  5  cards,  for  each 
year  starting  with  the  base  year.  (Within  each  type  5  set, 
there  is  a  card  for  each  weapon  system  and  pilot  type  for  which 
Information  exists.) 

6.  One  type  7  card  for  each  year,  beginning  with  the  base  year. 

7.  One  type  8  card  for  each  year,  beginning  with  the  year  follow¬ 

ing  the  base  year. 

A  sample  input  deck  is  illustrated  in  Fig.  1. 

Run  title  card.  The  run  title  can  appear  anywhere  on  thia  card. 

The  card  is  read  in  a  20A4  format.  The  first  card  in  the  input  deck 
listed  in  Fig.  1  is  a  run  title  card. 

Type  1  card.  The  type  1  card  is  the  run  control  card.  It  contains 
the  following  data: 


Data  Name 

Position  on  Card 

Format 

Col.  1 

II 

NBYR 

Cols.  5-6 

12 

NLYR 

Col.  11-12 

12 

NVFN 

Col*:.  37-18 

12 

a  * 

NBYR  is  the  base  year,  NLYR  is  the  last  year  used  in  the  run,  and 
KWPN  is  the  n usher  of  the  last  weapon  system  used  in  the  run. 

The  program  can  handle  a  maximum  of  20  years,  and  80  weapon  sys¬ 
tems.  Bence, 

NLYR  -  NBYR  <  19  and  NW?N  <  80. 

The  19  years  cannot  straddle  the  century. 

The  last  two  digits  of  the  year  are  entered;  for  example,  if  the 
base  year  is  1968,  NBYR  should  be  88. 
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4000 
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345 

4 
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2 

3 

1 

9 

4 

•  Ot 

3400  t 

14 

372 

41 

5 

41  1 

1 

39000. 

.04 

>04 

100.  100. 

9 

4 

.04 

2440 

3400  1 

14 

372 

42 

5 

42  1 

1 

31000. 

.42414 

.96 

.04 

100.  190. 

9 

6 

.04 

2440 

3400  1 

1$ 

372 

43 

5 

45  1 

i 

32000. 

.4155? 

.04 

.04 

100.  100. 

9 

4 

.04 

3400  1 

14 

372 

44 

5 

44  1 

1 

32000. 

.44444 

.04 

.64 

190.  100. 

9 

6 

•04 

3400  i 

14 

372 

45 

5 

45  1 

t 

32000. 

•44420 

.08 

.12443 

100.  100* 

9 

4 

.94 

3400  1 

14 

372 

40 

5 

44  1 

1 

30900. 

•45254 

.04 

•1300? 

109.  100. 

9 

4 

.04 

3400  1 

14 

372 

4? 

5 

47  1 

t 

24000. 

.47140 

.04 

•14475 

100.  109. 

9 

4 

.04 

3400  1 

14 

372 

40 

5 

44  i 

a 

• 

24000. 

•44 ISO 

.04 

.00405 

too.  100. 

* 

4 

.04 

3400  1 

1C 

372 

49 

5 

44  1 

l 

24000. 

.51235 

.04 

•00474 

150.  *00. 

9 

4 

.04 

3490  1 

10 

372 

50 

5 

50  i 

i 

24000. 

.5143? 

.04 

•or 

100.  100. 

9 

6 

•  04 

3400  1 

10 

332 

51 

5 

$1  I 

i 

27C00. 

.42444 

.04 

.90 

100.  109. 

« 

4 

.04 

3400  1 

10 

372 

32 

5 

52  I 

l 

20000. 

.41443 

.04 

.04 

190.  100. 

9 

7 

41  500 

1700 

40  300 

.3 

.1  .12 

7 

42  590 

1700 

40  300 

•3 

.1  .12 

7 

43  500 

1700 

40  300 

.3 

-1  .12 

7 

44  500 

1700 

40  300 

•3 

•  1  .12 

7 

45  500 

1700 

40  300 

.3 

.1  .12 

7 

44  500 

1700 

40  300 

.3 

.1  .12 

7 

47  500 

1790 

40  SCO 

.3 

.1  .12 

44  500 

1700 

40  390 

.3 

•S  .12 

40  500 

1700 

49  300 

.3 

.1  .12 

50  500 

1700 

40  309 

.3 

•1  -12 

51  500 

1700 

40  300 

<3 

•1  .12 

52  500 

1790 

30  390 

.3 

.1  .12 

9 

42.144  .2 

.327 

.034 

.24*  .22 

43.144  .2 

.327 

•034 

.244  .22 

44.144  .2 

.327 

.034 

.244  .22 

45.144  .2 

.327 

•034 

.244  .22 

44.144  .2 

•327 

.034 

.244  .22 

47.144  .2 

.327 

.034 

.244  .22 

42.144  .2 

.327 

•038 

.244  .22 

40.144  .2 

.327 

.034 

.244  .22 

50.144  .2 

.327 

•034 

.244  .22 

51.144  .2 

.32? 

•034 

.244  .22 

52.144  .2 

.327 

•034 

-244  .22 

9 

Fl«.  1  ~  Saapl 

t  laip  iit  Deck 

Type  2  card.  The  contents  of  the  type  2  card  ere  described  below 


Data  Name 

Position  on  Card 

Format 

•«2" 

Col.  1 

n 

T1 

Cols.  6-9 

F4.0 

T2 

Cols.  12-15 

F4.0 

T3 

Cols.  18-21 

F4.0 

T4 

Cols.  24-27 

F4.0 

S41 

Cols.  30-33 

F4.0 

S42 

Cols.  36-39 

F4.0 

S43 

Cols.  42-45 

F4.0 

A64 

Cols.  48-51 

F4.0 

A3 

Cols.  54-59 

F6.0 

A65 

Cols.  63-73 

F6.0 

NA66 

Col.  75 

11 

At  7 

Cols.  77-80 

F4.0 

T1  Is  the  travel  and  leeve  tine  in  days  after  CCTS. 

T2  is  the  travel  and  leave  time  in  days  after  survival  school. 

T3  ia  the  travel  and  leave  time  in  days  after  UPT. 

T4  is  the  travel  and  leave  tine  in  days  after  commission  training. 

541  is  the  AF  Academy  length  in  days  (<  1460  days). 

542  is  RQTC  length  in  days  (£  1460  days). 

543  is  OTS  length  in  days  (s  1460  days). 

A64  is  the  time  in  days  required  to  expand  UPT. 

A3  is  the  number  of  desk  job  pilots  in  the  base  year. 

A65  is  the  capacity  of  OTS. 

NA66  Is  1  if  OTS  expansion  is  allowed  or 
0  is  OTS  expansion  is  not  allowed. 

A67  is  the  time  in  days  required  to  expand  OTS. 


Type  4  card.  Each  type  4  card  pertains  to  a  specific  weapon  sys¬ 
tem  and  contains  the  following  data. 


Data  Name 

Position  on  Card 

Format 

Col.  1 

11 

NWP 

Cols.  2-4 

13 

NA7 

Cols.  9-12 

14 

NA10 

Cols.  17-20 

14 

NA11 

Cols.  25-28 

14 

NAIZ 

Cols.  33  36 

14 

IC 

Cols.  80 

11 

' . . »yni».i«nii . ««■■• . ».i|i<»<<«CT«ii^wnjt»iiiiiw«Byiiii«>iir»|iii««  iiimm— nil  iiraBriWiiilg,aH»^»B^l«>awtUtr^.^«l8iiSlfb!tg!I^SiSg«S!SSgig!Cy^;1^^ 
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NWP  is  the  weapon  system  number. 

NA7  is  the  aircraft  type  of  the  weapon  system:  The  type  can  be 
either  bomber/cargo  (NA7  *  1)  or  fighter  (NA7  ■  0) . 

For  cross-training  pilots  in  this  weapon  system: 

NA10  is  the  preference  index  for  pilots  from  similar  aircraft. 

NA11  is  the  preference  index  for  pilots  from  dissimilar  aircraft. 

* 

NA12  is  the  preference  index  for  pilots  in  desk  jobs. 

IC  »  9  if  card  is  the  last  type  4  card;  otherwise.  Col.  80  is  blank. 


The  type  6  card  contains  the  following  data: 


Data  Name  Position  on  Card  Format 


"6" 

Col.  1 

11 

A4 

Cols.  2-5 

F4.3 

A6 

Cols.  11-15 

F5.4 

A9 

Cols.  21-26 

F6.0 

A62 

Cols.  31-36 

F6.0 

NA63 

Col.  41 

11 

A20 

Cols.  46-51 

F6.0 

S2 

Cols.  56-60 

F5.0 

S3 

Cole.  66-70 

F5.0 

NYR 

Cols.  79-80 

12 

A4  is  the  pilot  loss  rate  for  pilots  in  desk  jobs  in  year  NYR, 
where  the  pilot  loss  rate  describes  all  losses  from  the  pilot 
inventory,  including  retirement,  resignation,  death,  promotion, 
disability,  etc. 

A6  is  the  attrition  rate  for  CCTS  in  year  NYR. 

A9  is  the  number  of  pilots  in  the  UPT  pipeline  in  year  NYR. 

A62  is  the  UFT  capacity  in  year  NYR. 

NA63  *  1  if  UPT  expansion  is  allowed  in  year  NYR; 

*  0  if  UPT  expansion  is  not  allowed  in  year  NYR. 

A20  is  the  number  of  pilots  leaving  UPT  in  year  NYR  who  have  re¬ 
ceived  pilot  training  but  are  not  members  of  the  Air  Force. 

S2  is  survival  school  length  in  days  in  year  NYR. 


The  index  can  be  1,  2,  or.  3  if  the  source  is  the  first,  second, 
or  third  choice,  respectively.  Each  of  the  three  sources  must  have  a 
unique  preference  assigned  to  it;  i.e.,  no  two  sources  can  have  the 
same  preference  index. 


S3  is  UPT  course  length  in  days  in  year  NYR.  (The  sua  of  S3  is 
in  the  year  After  the  base  year  and  T4,  the  travel  and  leave 
tine  after  coanisoion  training,  aust  be  leas  than,  or  equal  to, 
547.5  days:  (33(1)  +  T4  <547.5). 

Type  5  card.  The  type  5  card  contains  the  following  inforaation: 


Data  Kane  Position  on  Card  Foraat 


lljlt 

Col.  1 

11 

NYR 

Cols.  2-4 

13 

NWP 

Cols.  9-12 

14 

HTP 

Cols.  17-20 

14 

A1 

Cols.  25-30 

F6.0 

A2 

Cols.  35-40 

F6.4 

A5 

Cols.  45-50 

F6.4 

ASA 

Cols.  55-60 

F6.4 

SI- 

Cols.  65-68 

F4.0 

SI** 

Cols.  71-74 

F4.0 

IC 

Col.  80 

11 

NYR  is  the  year.  NHP  is  the  weapon  systea.  RTF  is  the  pilot  type. 

For  year  NYR,  weapon  systea  HWT,  and  pilot  type  HIP: 

A1  is  the  required  pilot  inventory. 

A2  is  the  fraction  of  A1  desired  through  UPT. 

A5  is  the  pilot  loss  rate  for  pilots  in  cockpits. 

ASA  is  the  rate  at  which  pilots  leave  aircraft  systea  NWP  to 
transfer  into  desk  jobs. 

SI  is  the  length  in  days  of  CCTS. 

CCTS  can  be  described  ss  either  a  long  or  a  short  course.  For 
any  year  and  weapon  eya  tee  type  1  pilots  will  take  the  short 
course  if  they  are  being  cro3s-trained  fro*  e  similar  air¬ 
craft  systea,  and  type  2  and  3  pilots  will  take  the  long 
course.  All  pilots  that  are  cross-trained  fro*  desk  jobs 
or  dissiailar  aircraft  systcas  will  take  the  long  course. 


a 

Short  course.  This  data  should  appear  only  on  a  card  on  which 
ntp  »  1. 

Long  course.  This  data  should  appear  only  on  a  card  on  which 
NT?  »  1, 
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IC  «•  9  on  each  type  5  card  which  Is  tha  last  card  in  a  type  5  set; 
otherwise,  it  is  blank. 

Type  7  card.  The  type  7  card  contains  data  pertaining  to  rates  of 
attrition  during  commission  training  and  to  numbers  of  UPT  entrants. 


Data  Name 

Position  on  Card 

Format 

lljll 

Col.  1 

11 

NYR 

Cols.  5-6 

12 

A16 

Cols.  7-12 

F6.C 

A17 

Cols.  17-22 

F6.0 

A18 

Cols.  27-32 

F6.0 

A19 

Cols .  37-42 

F6.0 

A27 

Cols.  57-80 

F4.  3 

A28 

Cols.  63-66 

F4.3 

A29 

Cols.  69-72 

F4.3 

IC 

Col.  80 

11 

For  year  NYR: 

A16  is  the  number  of  AF  Academy  graduates  entering  UPT. 
Al7  is  the  number  of  ROTC  graduates  entering  UPT. 

A18  is  the  number  cf  rated  officers  entering  UPT. 

A19  is  the  nuaber  of  nonrated  officers  entering  UPT. 
A27  is  the  attrition  rate  In  the  AF  Academy. 

A28  is  the  attrition  rate  in  ROTC. 

A29  is  the  attrition  rate  in  0TS. 

IC  *  9  in  the  last  type  7  card. 


Type  8  card.  The  type  8  card  contains  information  regarding  at¬ 
trition  in  UPT. 


Data  Naoe 

Position  on  Card 

Format 

"8“ 

Col.  1 

11 

NYR 

Cole.  5-6 

12 

A21 

Cols .  7-10 

F4.3 

A22 

Cols.  13-16 

F4.3 

A23 

Cols.  19-22 

F4.3 

A24 

Cols.  25-28 

F4.3 

A25 

Cols.  31-34 

F4.3 

A26 

Cols.  37-40 

F4.3 

1C 

Col.  80 

11 
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For  year  NYR: 

A21  ia  the  attrition  rata  in  U?T  of  AF  Acadewy  graduates. 
A22  is  the  attrition  rate  in  UPT  of  ROTC  graduates. 

A23  is  the  attrition  rate  in  UPT  of  OTS  graduates. 

A24  is  the  attrition  rate  in  UPT  of  rated  officers. 

A25  is  the  attrition  rate  in  UPT  of  nonrated  officers. 

A26  is  the  attrition  rate  in  UPT  of  others. 

IC  ■  9  on  the  last  type  8  card. 


III.  PROGRAM  OUTPUT 


The  program  prints  six  sets  of  information.  A  description  and 
illustration  of  each  set  follow. 

The  first  page  of  output  contains  siaply  the  run  title,  e.g., 
"Variation  No.  8  on  Base  Case — 31  pilot  loss  rate.  81  rotation  into 
desks . " 

Under  the  title  "Pilot  Model  Output  -  Main  Inf ormation , "  the  fol¬ 
lowing  information  is  printed  for  each  year,  weapon  system,  and  pilot 
type  (Fig.  2): 

1.  Required  pilot  inventory,  which  is  an  input  value. 

2.  Number  of  pilots  lost  from  the  cockpit  inventory  at  the  end 
of  the  year. 

3.  Number  of  pilots  leaving  the  weapon  system  for  desk  jobs  at: 
the  end  of  the  year. 

A.  Net  pilot  requirement. 

5.  Number  of  pilots  desired  through  UPT. 

6.  Number  of  pilots  obtained  through  UPT. 

7-  Nsmher  of  pilots  desired  through  cross-training. 

8.  Number  of  pilots  obtained  through  cross-training. 

9.  Number  of  pilots  upgraded. 

Under  the  title  "Pilot  Output  -  Pilots  Entering  CCTS,"  for  each 
weapon  system  the  following  information  about  CCTS  is  printed  for  all 
years  (Fig.  3): 

1.  Number  cf  pilots  entering  CCTS  from  UPT,  from  similar  A/C, 
from  dissimilar  A/C,  and  from  desk  jobs. 

2.  Total  entrants  into  CCTS. 

3.  Total  graduates  from  CCTS. 

Under  the  title  "Inventory  of  Desk  Job  Pilots  at  Year’s  End,"  the 
inventory  of  pilots  in  desk  jobs  at  the  end  of  the  year  is  printed  for 
each  year  (Fig.  4). 


Fiior  mocks,  ouiwr  -  mors  emt ek inc  ccts 

WEMON  &VSt EH  | 


INVSWOftV  Of  DESK  JOE  MtOTS  At  YEAR'S  END 
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Under  the  title  "Pilot  Model  Output  -  Oomedasion  Training, "  the 
following  information  about  coonission  training  ia  printed  for  each 
year  (see  Fig.  5) : 

1.  Nuaber  of  AF  Academy  entrants. 

2.  Nuaber  of  AF  Academy  graduates. 

3.  Number  of  RDTC  entrants. 

4.  Number  of  ROTC  graduates. 

5.  Nuaber  of  OTS  entrants. 

6.  Nuaber  of  CIS  graduates. 

Finally,  under  the  title  "Pilot  Model  Output  -  Entrants  into  UPT 
from  Six  Sources,"  the  following  information  about  UPT  is  printed  for 
each  year  (see  Fig.  6); 

1.  Number  of  entrants  into  UPT  by  source:  AF  Academy,  ROTC  and 
OTS  graduates,  rated  officers  on  active  duty,  nonrated  offi¬ 
cers  on  active  duty,  and  "Others." 

2.  Total  nuaber  of  UPT  entrants. 

3.  Total  nuaber  of  UPT  graduates. 

4.  A  ,,Yes"  or  "No"  answer  as  to  whether  UPT  was  expanded. 


"Others"  includes  students  fro«  Air  National  Guard,  Marines  and 
MAP  who  are  given  UPT  training  but  who  do  not  add  to  the  pilot  strength 
of  the  Air  Force.  UPT  entrants  also  Include  a  few  Military  and  Naval 
Academy  graduates. 


mcr  huo£l  output  -  commission  training 


saaxncw  x J s  mom  »<in  ojmi  «.(nvmp»  -  ifntir*)  noon  unid 
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IV.  PROGRAM  DESCRIPTION 


PROGRAM  STRUCTURE 

The  program  for  the  PILOT  model  is  composed  of  a  main  routine 
(PILOT)  and  the  following  nine  subroutines:  READ2,  READ4,  READS,  READ7, 
READ8,  CROSS,  TTIME,  OUTP,  and  OUTPUT. 

The  first  five  subroutines  are  used  to  read  type  2,  4,  5,  7,  and 
8  cards,  respectively.  Subroutine  CROSS  determines  the  number  of  pilots 
to  be  taken  from  a  given  source  for  CCTS  cross-training.  Given  the  end 
year  of  UPT,  subroutine  TTIME  computes  *-h*.  beginning  year  of  UPT,  the 
end  year  of  commission  training,  and  the  beginning  years  of  the  AF  Acad¬ 
emy,  ROTC  and  OTS  training.  Subroutine  OUTPUT  prints  the  information 
entitled  "Pilot  Model  Output  -  Pilots  Entering  CCTS."  Subroutine  OUTP 
prints  the  information  entitled  "Pilot  Model  Output  -  Commission  Train¬ 
ing"  and  "Pilot  Model  Output  -  Entrants  into  UPT  from  Six  Sources." 

PROGRAM  FLOW 

The  Pilot  program  can  be  divided  into  four  logical  sections  of  exe¬ 
cution: 

1.  Data  input  and  initialization  of  variables. 

2.  Computation  of  pilot  requirements  for  a  given  year,  all  weapon 
systems  and  pilot  types. 

3.  An  attempt  to  fill  requirements  for  new  pilots  and  for  cross¬ 
training  for  a  given  year,  all  weapon  systems,  and  pilot  types. 

4.  Computation  of  commission  training  entrants  and  graduates  for 
all  years. 

Section  1  is  executed  initially.  Then,  for  each  year.  Sections  2  and  3 
are  executed  consecutively.  Section  4  is  executed  last. 

A  detailed  description  of  each  of  the  above  four  sections  follows. 
All  variable  names  beginning  with  an  "A,"  "T"  or  "S"  are  input  quanti¬ 
ties  and  were  defined  in  Section  II  of  the  Memorandum.  All  of  the  in¬ 
put  data  that  represent  a  length  of  time  are  initially  converted  from 
days  to  fractions  of  *  year.  The  subscripts  used  in  the  program  are 
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N,  W,  and  T  where  W  represents  a  weapon  system  and  T  represents  a  pi¬ 
lot  type.  N  represents  a  year  relative  to  the  base  year  0;  hence,  if 
the  real  base  year  is  1968,  the  year  1970  would  be  represented  by  N  *  2. 

Sectl ra  1:  Pat  a  Input 

The  data  input  deck  has  been  described  in  Section  II  of  this  Memo¬ 
randum.  As  this  data  deck  is  read,  the  program  will  print  error  mes¬ 
sages  and  then  terminate  execution  if  the  following  error  conditions 
are  encountered: 

If  the  first  card  i.i  the  input  deck  does  not  contain  a  "l51  in  col¬ 
umn  1,  the  following  message  is  printed:  "1"  CARD  IS  MISSING  FROM  IN¬ 
PUT  DECK.  If  the  second  card  in  the  deck  does  not  contain  a  "2"  in 
column  1,  this  message  is  printed:  ”2"  CARD  IS  MISSING  FROM  INPUT 
DECK. 

After  the  type  2  card,  the  type  4  cards  are  read.  If  the  program 
encounters  a  card  that  does  not  contain  a  "4"  in  column  1,  this  message 
is  printed:  CARD  READ  IS  NOT  A  TYPE  4  CARD  -  CHECK  FOR  A  MISPLACED 
CARD  IN  THE  TYPE  4  SECTION.  This  error  statement  will  also  be  printed 
if  a  "9"  does  not  appear  in  column  30  of  the  last  type  4  card.  The 
"9"  signals  the  end  of  the  set  of  cards.  If  the  "9"  does  not  appear, 
the  program  will  read  the  next  card,  a  type  6  card,  "thinking"  that  it 
should  be  a  type  4  card. 

If  a  weapon  system  number  on  a  type  4  card  exceeds  the  number  80, 
the  following  message  is  printed:  WEAPON  SYSTEM  NUMBER  ON  TYPE  4  CARD 
EXCEEDS  ALLOWABLE  NUMBER. 

After  the  type  4  cards  are  read,  the  program  expects  to  read  one 
type  6  card  followed  by  a  set  of  type  5  cards  for  each  consecutive  year 
starting  with  the  base  year.  If  a  card  without  a  "6"  in  column  1  is 
encountered  when  the  program  expects  to  read  a  type  6  card,  the  follow¬ 
ing  message  is  printed:  A  TYPE  6  CARD  IS  MISSING.  If  a  type  6  card 
does  not  contain  the  right  consecutive  year,  this  message  is  printed: 
TYPE  6  CARD  DOES  NOT  CONTAIN  THE  RIGHT  YEAR. 

Having  read  a  type  6  card  for  a  particular  year,  the  program  reads 
type  5  cards  for  that  year  until  a  "9"  is  encountered  in  column  80  of  a 
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card.  The  "9"  signals  the  last  type  5  card  in  this  set.  If  a  card  does 
not  contain  a  "5"  in  column  1,  this  message  is  printed:  CARD  READ  IS 
NOT  A  TYPE  5  CARD  -  CHECK  FOR  A  MISPLACED  CARD  IN  A  TYPE  5  SECTION. 

If  a  type  5  card  does  not  contain  the  same  year  as  the  preceding 
type  6  card,  the  following  message  is  printed:  A  TYPE  5  CARD  DOES  NOT 
CONTiJN  THE  RIGHT  YEAR.  If  the  weapon  system  number  is  greater  than 
80  or  a  pilot  type  number  is  greater  than  3  on  a  type  5  card,  the  re¬ 
spective  messages  are  printed:  WEAPON  SYSTEM  NO.  ON  TYPE  5  CARD  EX¬ 
CEEDS  ALLOWABLE  NUMBER;  or,  PILOT  TYPE  NO.  ON  A  TYPE  5  CARD  EXCEEDS 
ALLOWABLE  NUMBER. 


After  a  type  6  card  and  all  type  5  cards  for  the  final  year  have 
been  read,  the  program  reads  a  type  7  card  for  each  consecutive  year 
beginning  with  the  base  year.  A  "9"  in  column  80  signals  the  last  type 
7  card.  Then,  a  type  8  card  for  each  consecutive  year  is  read  begin 
ning  with  the  year  after  the  base  year.  Again,  a  "9"  in  column  80  sig¬ 
nals  the  last  type  8  card.  If  the  type  number  is  not  correct  on  either 
a  type  7  or  8  card,  the  following  message  is  printed: 


CARD  READ  IS  NOT  A 


IN  THE  TYPE 


{» 


{» 


CARD  -  CHECK  FOR  A  MISPLACED  CARD 


SECTION. 


If  either  type  card  does  not  contain  the  right  consecutive  year,  this 
message  is  printed: 


A  TYPE 


{«} 


CARD  DOES  NOT  CONTAIN  THE  RIGHT  YEAR. 


Data  Initialization.  Except  for  the  variable  A2,  data  initializa¬ 
tion  is  a  straightforward  setting  to  zero  of  all  variables.  A2^  y  T 
is  the  fraction  of  the  pilot  requirement  for  year  N,  weapon  system  W, 
and  pilot  type  T  that  is  desired  through  UPT.  A  value  of  A2  for  the 
first  year  is  computed  by  the  program  in  order  that  all  pilots  in  the 
UPT  pipeline  in  the  base  year  are  put  into  the  system.  This  computed 
A2  will  then  be  used  in  the  first  year  for  the  weapon  systems  and  pi¬ 
lot  types  for  which  the  required  pilots  would  graduate  from  UPT  in  the 
base  year.  The  input  A2  is  used  for  the  remaining  requirements  in  the 
first  year. 
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The  data  used  In  coaputing  A2  are  A1Q  y  T,  Al^  y  T,  A5Q  ^  T,  and 

A9q  for  all  weapon  systems  W  and  pilot  types  T  in  year  1  for  which  the 
required  pilots  would  graduate  from  UPT  in  the  base  year  0.  An  indi¬ 
cator  INDC(NW,NT)  is  set  to  "2"  for  each  such  weapon  system  NW  and  pi¬ 
lot  type  NT.  At  this  time,  the  indicator  INDC(NW,NT)  is  set  to  "l” 
if  the  required  pilots  in  year  1  are  found  to  have  graduated  from  ITT 
before  the  base  year. 

The  flow  chart  in  F..g.  7  illustrates  the  computation  of  A2. 

Section  2;  Computation  of  Pilot  Requirements 

The  procedure  for  computing  pilot  requirements  is  described  for 
one  year  N,  all  weapon  systems  and  pilot  types.  The  procedure  is  as 
follows : 

(1)  For  one  weapon  system,  all  pilot  types,  find  the  difference 
Pi  between  this  year's  required  pilot  inventory  and  the  pilot  *  ^ven- 
tory  LP  at  the  end  of  last  year  (see  Fig.  8). 

(2)  Try  to  fill  the  pilot  requirement  for  a  type  1  pilot  (Pl^  w 
with  upgraded  type  2  and  type  3  pilots  fro*  the  inventory  (LP2  and 
LPy  of  year  N-l.  If  upgraded  type  2  and  type  3  pilots  are  used  fro* 
year  N-l,  an  equal  number  of  pilots  are  added  to  the  pilot  requirement 
for  type  2  and  type  3  pilots  in  year  N.  Having  done  this,  try  in  the 
same  manner  to  fill  the  pilot  requirement  for  a  type  2  pilot  Pl^  w  2 
with  upgraded  type  3  pilots  from  year  N-l.  UP2  and  UP3  collect  the 
upgraded  type  2  and  type  3  pilots,  respectively. (see  Fig.  9). 

(3)  After  the  pilot  requirements  Pl^  ^  T  have  been  computed  and 
adjusted  for  one  weapon  system,  all  pilot  types,  the  program  determines 
the  number  of  desired  CCTS  graduates  P2^  y  ^  and  P3jj  w  ^  from  each  of 
two  sources,  new  people  and  cross-training,  respectively,  to  fill  the 
pilot  requirements  (see  Fig.  10) .  If  the  year  N  is  the  first  year  and 
the  required  pilots  PL,  „  _  would  have  graduated  from  UPT  before  the 
base  year  (INDC(NW,NT)  -  1),  P2„  „  m  and  P3„  „  _  are  set  to  0.  These 

ri9Vf,i  rt9W9i 

pilots  are  already  in  the  system. 

(4)  If  Pljj  y  t  is  negative,  a  surplus  of  pilots  exists  and  will 
be  assigned  either  to  a  bomber/cargo  surplus  pool  P4M  or  to  a  fighter 
surplus  pool  P5n,  depending  on  the  aircraft  type  of  weapon  system  W. 


Am 


Fig. 8— Flowchart  of  the  amputation  of  pilot  requlrenv  its 


Ftg.9— Flowchart  of  the  process  of  filling  pilot  requirements  with  ungraded  pilots 


-24- 


When  these  calculations  are  completed  for  the  three  pilot  types, 
the  program  returns  to  "1"  and  executes  "1",  ”2”,  and  ”3"  for  the  next 
weapon  systea.  After  the  last  weapon  systea  has  been  processed,  execu¬ 
tion  proceeds  to  Section  3. 


Section  3:  Filling  Require aents  for  New 
Pilots  and  Pilots  for  Cross-Training 


In  this  section  of  the  progras  an  attespt  is  aade  to  fill  the  re¬ 
quirements  for  new  pilots,  ?2^  u  and  the  requirements  for  cros s- 
trained  pilots,  P3..  „  ...  for  one  year  S,  all  weapon  systeas  and  pilot 
types. 


A  check  la  Bade  cm  each  P2,.  y  T  to  see  if  it  is  positive  or  nega¬ 
tive.  If  it  is  negative,  the  progras  proceeds  to  sake  the  saae  cneck 
co  P3j.  K  T-  If  P2j.  y  T  is  positive,  an  indicator  ISD  is  set  to  signal 
that  a  new  pilot  requirement  is  being  processed.  Sow,  given  the  year  fi 
in  which  new  pilots  are  required,  the  progras  calculates  the  years  in 
which  they  would  have  had  to  graduate  freo  CCTS,  enter  CCTS,  leave 
survival  school,  graduate  from  CPT,  and  graduate  frees  cossission  train¬ 
ing  in  order  to  fill  the  requirement  in  year  S.  If  the  end  year  of 
casoissioc  training  is  the  base  yeur  or  later,  there  is  sufficient  tiae 
to  train  the  required  new  people.  An  indicator  IPIPE  is  set  to  0  to 
indicate  sufficient  training  tiae.  If  there  Is  not  enough  tiae  to 
train  new  people,  IPIPE  is  set  to  1, 

Under  certain  conditions  the  progras  will  branch  from  a  part  not 
yet  described  into  the  calculation  of  training  progras  years.  This 
branch  occurs  when  a  cross-training  requirement  cannot  be  filled  through 
cross-training.  The  progras  will  try  to  fill  the  deficit  with  new  pi¬ 
lots.  If  this  branch  is  executed,  IND  *  3  to  indicate  that  a  cross¬ 
training  reouest  is  being  processed  and  P3„  „  _  contains  the  deficit. 

** 

The  preceding  discussion  is  illustrated  in  Fig.  11. 

Suppose  that  there  is  sufficient  tiae  to  train  new  pilots  to  fill 
either  a  new  pilot  requireaent  ?2^  w  T  for  year  N  or  the  part  of  the 
cross-training  requireaent  P3,^  u  _  for  year  K  that  cannot  be  filled  from 
free  cross-training  sources.  If  the  attrition  rate  in  CCTS  (AS)  is 


* 

See  p.  30  . 


Fig.  11— Flowchart  of  the  computation  of  the  beginning  and  end  years 
of  UPT,  survival  school,  and  CCTS 
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taken  into  consideration ,  enough  pilots  are  scheduled  to  enter  CCTS  in 
year  14  to  produce  the  required  number  of  graduates.  The  pilots  sched- 
uled  to  enter  CCTS  in  year  14  are  then  scheduled  to  graduate  from  UPT 
in  year  13.  At  this  point,  a  check  is  sade  to  determine  whether  the 
UPT  capacity  in  year  13  ‘.as  been  exceeded  This  capacity  check  is 

described  later  in  this  section. 

If  there  is  insufficient  time  to  train  new  people  to  fill  &  re¬ 
quirement  for  year  N,  the  UPT  pipeline  (A9)  in  year  13  is  used  as  de¬ 
scribed  below. 

The  nuaber  of  pilots  required  to  enter  CCTS  in  year  14  is  cospared 
with  the  nurf>er  in  the  pipeline.  If  the  requirement  is  le3s  than  the 
pipeline,  the  requirement  is  taken  from  the  pipeline  aid  scheduled  in¬ 
to  CCTS  in  year  14.  A  UPT  capacity  check  is  not  necessary  because 
the  pipeline  is  being  used.  If  the  requirement  exceeds  the  pipeline, 
the  total  pipeline  is  scheduled  to  enter  CCTS  in  year  14  and  the  defi¬ 
cit  is  handled  either  as  an  additional  cross-training  requirement  if 
the  original  request  was  one  for  new  people  or  as  a  call  for  reserves 
if  the  new  people  were  needed  to  fill  a  deficient  cross-training  require¬ 
ment.  If  a  reserve  call-up  is  necessary,  the  following  message  is 
printed: 

RESERVES  HAVE  BEEN  CALLED.  FOR  YEAR—,  WP.  SYS.—,  PILOT 
TYPE—,  CROSS -TRAINING  REQUIHEhEHT  CANNOT  BE  FILLED  THROUGH 
CROSS-TRAINING.  THERE  IS  NOT  ENOUGH  TIME  TO  TRAIN  NEH  PEO¬ 
PLE  AND  THERE  ARE  NOT  ENOUGH  PIPELINE  PILOTS  TO  FILL  THE 
DEFICIT. 

The  foregoing  discussion  is  illustrated  in  Fig.  12. 

The  UPT  capacity  check  as  mentioned  earlier  is  accomplished  in 
the  following  manner  and  illustrated  in  Pig.  13:  The  value  of  the  in¬ 
dicator  I CAP  can  be  0,  1,  or  2.  If  I CAP  for  year  13  is  1,  the  capacity 
of  UPT  in  year  13  has  already  been  exceeded,  but  UPT  expansion  is  al¬ 
lowed  (A63j2  “  1)  and  there  is  enough  time  to  expand.  Hence,  UPT  in 
year  13  can  handle  these  people  assigned  to  it.  If  I CAP  for  year  13 
is  0,  the  capacity  in  year  13  has  not  yet  been  exceeded.  But.  the  peo¬ 
ple  added  to  the  total  UPT  graduates  in  year  13,  since  the  last  UPT 
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capacity  check,  may  have  forced  the  total  beyond  capacity.  The  total, 
therefore,  is  compared  to  the  capacity.  If  capacity  has  not  been  ex¬ 
ceeded  and  expansion  is  allowed  and  there  is  enough  time  to  expand, 

ICAP  is  set  to  1  to  indicate  that  UPT  can  handle  all  pilot  candidates 
assigned  to  it  in  year  13.  If  the  capacity  is  exceeded  and  expansion 
either  is  not  allowed  or  cannot  be  accomplished  in  the  time  available, 
xCAP  is  set  to  2  to  indicate  that  no  more  trainees  can  be  assigned  to 
UPT  in  year  13.  Those  that  cannot  be  handled  by  UPT  are  deleted  from 
the  number  of  CCTS  entrants  in  year  14,  and  become  either  an  additional 
cross-training  requirement  or  a  reserve  call-up,  depending  on  the  value 
of  INP.  If  a  reserve  call-up  is  necessary,  the  following  message  is 
printed: 

RESERVES  HAVE  BEEN  CALLED.  FOR  YEAR—,  WP.  SYS.—,  PILOT 
TYPE—,  CROSS-TRAINING  REQUIREMENT  CANNOT  BE  FILLED  THROUGH 
CROSS-TRAINING.  THERE  IS  ENOUGH  TIME  TO  TRAIN  NEW  PEOPLE, 

BUT  UPT  CAPACITY  HAS  BEEN  EXCEEDED  AND  EITHER  EXPANSION  IS 
NOT  ALLOWED,  OR  THERE  IS  NOT  ENOUGH  TIME  TO  EXPAND  UPT. 

Having  processed  a  new  pilot  requirement  for  one  weapon  system 
and  pilot  type,  the  program  attempts  to  fill  the  cross-training  require¬ 
ment  P3„  T  for  that  sa**  weapon  system  and  pilot  type. 

If  P3n  w  T  is  less  than  zero,  the  program  continues  and  updates 
the  desk  job  inventory  for  year  N. 

There  are  three  sources  from  which  people  can  be  taken  for  CCTS 
cro3s-t raining:  similar  aircraft,  dissimilar  aircraft,  and  desk  jobs. 
Each  source  has  been  assigned  a  preference  by  weapon  system.  For  the 
description  that  follows,  assume  that  the  similar  aircraft  source  is 
first  preferred  (A10w  =  1) ,  the  dissimilar  aircraft  source  is  second 
preferred  (All^t  =  2),  and  the  desk  job  source  is  third  preferred 
(A12w  -  3). 

The  program  tries  to  fill  P3  from  the  first  preferred  source,  sim¬ 
ilar  aircraft.  It  computes  the  year  14  in  which  people  would  enter 
CCTS.  The  number  of  people  required  to  enter  CCTS  in  year  14  in  order 
to  fill  the  requirement  in  year  N  is  then  compared  either  with  the 
bomber/cargo  surplus  pool  P4,  if  the  weapon  system  aircraft  type  is 


bomber/cargo  (A?w  =  1) ,  or  with  the  fighter  surplus  pool  P5,  if  the 
weapon  system  aircraft  type  is  fighter  (A7y  *  0) .  If  the  chosen  pool 
is  larger  than  the  requirement,  the  required  number  of  people  are  taken 
from  the  pool  and  scheduled  to  enter  CCTS  in  year  14.  Because  this 
fills  the  cross-training  requirement  in  year  N  for  this  weapon  system 
and  pilot  type,  the  program  then  proceeds  to  update  the  iesk  inventory 
for  year  N. 

If  the  chosen  source  (in  this  illustration,  similar  aircraft)  is 
not  large  enough,  the  entire  pool  is  scheduled  to  enter  CCTS  in  year 
14,  and  an  attempt  is  made  to  fill  the  deficit  from  the  second  preferred 
source,  dissimilar  aircraft. 

The  procedure  for  using  the  dissimilar  aircraft  source  is  the  same 
as  that  for  the  similar  aircraft  source  except  for  the  choice  of  pool 
to  be  used.  If  the  weapon  system  aircraft  type  is  bomber/cargo ,  the 
fighter  surplus  pool  will  be  used;  if  the  weapon  system  aircraft  type 
is  fighter,  the  bomber/ cargo  surplus  pool  will  be  used. 

If  the  cross-training  requirement  cannot  be  completely  filled  by 
the  second  preferred  source,  the  program  tries  the  third  source,  that 
is,  desk  jobs.  Again,  the  procedure  for  using  the  desk  job  source  is 
the  same  as  for  the  other  two  sources  except  that  there  is  only  one 
pool  to  be  used,  namely,  the  desk  job  inventory  P6  from  year  N-l. 

If  the  total  requirement  P3  cannot  be  filled  from  these  three 
sources  of  APT-txained  pilots,  UPT  is  called  upon  to  provide  an  i:.'_- 
to  APT  to  meet  the  shortage.  If  UPT  cannot  provide  the  full  number 
needed  or  cannot  provide  them  in  sufficient  time  to  eliminate  the  short¬ 
age,  the  reserves  are  called  upon  to  fill  whatever  deficit  remains. 

If  a  reserve  call-up  is  necessary,  the  following  message  is  printed: 

RESERVES  HAVE  BEEN  CALLED.  FOR  YEAR—,  VP.  SYS.  —  *  PILOT 

TYPE—,  CROSS-TRAINING  REQUIREMENT  (WHICH  INCLUDES  PART  OF 

THE  NEW  PEOPLE  REQUIREMENT)  CANNOT  BE  FILLED. 

It  should  be  noted  that  a  type  1  pilot  will  take  the  short  course 
in  CCTS  if  cross-trained  from  similar  aircraft  and  the  long  course  if 
cross-trained  from  either  of  the  remaining  sources.  A  type  2  or  type  3 
pilot  will  take  the  long  course  in  CCTS  regardless  of  the  source  from 
which  he  is  taken. 
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Figures  14,  15,  and  16  illustrate  the  cross-training  of  pilots 
from  the  similar  aircraft  source,  dissimilar  aircraft  source,  and  the 
desk  job  source,  respectively. 

After  a  new  pilot  requirement  P2  and  a  croas-training  requirement 
P3  for  one  weapon  system  W  and  pilot  type  T  in  year  N  have  been  proc¬ 
essed,  the  desk  job  inventory  P6  for  year  N  is  updated  by  the  following: 

1.  Transfer  into  desk  jobs  from  the  pilot  inventory  in  year  N-l 
for  weapon  system  K  and  pilot  type  T. 

2.  Attrition  from  CCTS  into  desk  jobs  in  yenr  II  for  weapon  sys¬ 
tem  W  and  pilot  type  T. 

3.  Subtraction  of  the  number  of  people  taken  from  th»  desk  job 
inventory  in  year  N-l  to  be  cross-trained  in  CCTS  for  weapon 
system  W  and  pilot  type  T. 

After  all  P2  and  P3  requirements  for  year  N  have  been  processed, 
the  desk  job  inventory  for  that  year  reaches  its  final  total,  by: 

1.  Addition  of  the  pilots  in  the  bomber/cargo  and  fighter  surplus 
pools  in  the  year  N  that  have  not  been  used. 

2.  Addition  of  the  pilots  in  the  desk  job  inventory  at  the  begin¬ 
ning  of  year  N-l. 

3.  Subtraction  of  pilot  losses  from  desk  jobs  in  year  N-l. 

If  the  final  total  is  negative,  an  error  message  stating  this  fact  is 
printed  and  program  execution  is  terminated.  If  P6  for  year  N  is  pos¬ 
itive,  the  program  returns  to  Section  2  to  calculate  pilot  requirements 
for  year  and  continues  through  Section  3  to  process  new  pilots  and 

cross-training  requirements  for  that  year.  After  the  final  year  has 
been  processed,  the  program  proceeds  to  Section  4. 

The  desk  job  inventory  accumulation  is  illustrated  in  Fig.  17. 

Section  4:  Computation  of  Commission  Training 
Entrants  and  Graduates 

After  the  pilot  requirements  for  all  years,  weapon  systems  and 
pilot  types  have  been  processed,  the  number  of  UPT  graduates  P12  in 
each  year  is  known.  Using  the  value  of  P12  in  each  year,  the  program 


Fig.  14— flowchart  of  the  process  of  cross-training  pilots 
in  similar  aircraft 
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Fig.  15— Flowchart  of  the  process  of  cross-training  pilots 
in  dissimilar  aircraft 


-34- 


Fig.  IS-flowchart  of  the  process  of  cross-training  pilots 

from  desk  jobs 
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Fig.  17— Flowchart  of  the  process  of  updating  the  desk  joh  inventory 
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schedules  people  through  commission  training  and  into  UPT  in  the  follow¬ 
ing  Banner: 

Given  year  H  as  the  end  year  of  UPT,  successive  computations  are 
aade  (going  back  in  tine)  of  the  beginning  year  of  UPT  (II) ,  the  end 
year  of  commission  training  (12) ,  the  beginning  year  of  the  AF  Academy 
(I3A),  the  beginning  year  of  ROTC  (13B) ,  and  the  beginning  year  of  OTS 
(I3C).  The  nusber  of  pilot  trainees  entering  UPT  in  year  II  from  the 
AF  Academy  (A16),  from  RDTC  (A17),  and  from  active  duty  (A18  and  A19) 
is  then  totalled.  This  total  is  reduced  by  deducting  the  nunber  of 
UPT  attritions  in  year  N  and  the  result  is  cospared  with  the  number 
of  required  UPT  graduates  P12  in  year  N.  If  the  ccxsputed  number  of 
UPT  graduates  is  less  than  the  nusber  required,  the  deficit  is  filled 
by  scheduling  sore  people  into  UPT  from  GTS  in  year  N.  If  the  nunfoer 
of  pilot  candidates  in  UPT  exceeds  the  number  required  to  graduate,  the 
number  of  people  coming  frcn  ROTC  is  diminished  proportionately.  (If 
ROTC  output  goes  negative,  a  message  stating  this  fact  is  printed.) 

If  it  is  assumed  that  the  number  of  UPT  entrants  from  each  UPT 
source  has  beat  adjusted  to  match  the  UPT  graduation  requirement,  the 
required  nuabers  of  people  are  scheduled  to  enter  the  AF  Academy,  ROTC, 
and  OTS  in  yeais  I3A,  I3B,  and  13 C,  respectively. 

Figure  18  illustrates  the  ccenission  training  scheduling  procedure. 


Fig  JS— Flowchart  of  the  process  of  scheduling  pilots 
through  commission  training 
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COMMON/WE AP/  NA7I60),  NA10(50I,  H&IHBOU  NA12I80) 

COMMON /DAT A/  Al(2,80,3»,  A2(80,3),  A5(2,80,3),  A5 A ( 2  »  80, 3  ) « 
l  SI  121,80, 3  I 

COMMC*VINFUl/  Alb<  25' .  A17{25),  A18I22),  Al<5{22), 
l  A27  22),  A28 ( 22 ) (  A27I22) 

CClM'utN/ !  NF02/  A2H21),  A22I21),  A23I21),  A2M21),  A2..I21),  A2M21) 
DIMENSION  AM21),  AM21J,  A9I21),  A62(21),  NA&3I21), 

1  S2 ( 2 1 )  ,  S3! 21) 

DIMENSION  P1(8C»3I,PJ( 3) ,P2I 80*3} t  P3(80,3),  P6I20J, 

1  ICAPI21),  P 1 2  (  2 1  * ,  P  J  2 1 1’  0 )  *  PJ3(H0) 

COMMON/ SAVE/  PTG(8C»21  )  ,  P8SI80,21),  P9SI8G,2l),  P10S(80,2i>, 

1  PI 1S( 80,  21) 

DIMENS ION  PP1 3 ( 25 ) ,  P 1 A { 2  5 } *  P15C25),  P16I25),  A20 1  22  > 

DIMENSION  CARDI20), INDC(8G,3) 

GIVEN  A  PART  I CUl AK  WEAPON  SYSTEM  W, 

NA 7  IS  THE  AIRCRAFT  TYPE, 

NA 10  IS  THE  CKUSS  TRAINING  PRfcFI  PENCE  INDEX  FOR  SOURCE  A, 

NA 1 I  IS  THE  CROSS  TRAINING  PREFERENCE  INDEX  FOR  SOURCE  8, 

NA 1 2  IS  THf  CROSS  TRAINING  PREFERENCE  INDEX  FOR  SOURCE  C. 

GIVEN  A  ^ARTICULAR  YEAR, 

A4  IS  THE  ATTRITION  RATE  FUR  SOURCE  C, 

AG  IS  THF  ATTRITION  RATE  FUR  CCTS, 

A9  IS  THE  NO.  OF  PIPELINE  PILOTS  FROM  UPT, 

A62  IS  UPT  CAPACITY, 

NA63  IS  I"  IF  UPT  fcXPANS  ON  IS  NOT  ALLOWED, 

.  U  UPT  EXPANSION  IS  ALLOWED. 

S2  IS  SUKVIVAL  SCHOOL  TRAINING  TIME, 

S3  IS  UPT  TRAINING  TIME. 


Mb 

IS 

THF 

NO.  OF  AF 
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GRAD. 

ENTERING  UPT, 

M7 

IS 

THE 
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ENTERING  UPT, 
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A 1 9 
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A2C 
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THE 

NUMBER  OF 
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UPT , 
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THE 
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RATE 
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UPT 

OF 
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THE 
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IN 

UPT 

OF 

ROTC  GRADUATES, 

A?  3 
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THE 

ATTRITION 

RATE 

IN 

UPT 

OF 

OTS  GRADUATES, 

A?R 

IS 

THE 

ATTRITION 

RAT  E 

IN 

UPI 

OF 

RATED  OFFICERS, 

A25 

IS 

THE 

ATTRITION 

KATE 

IN 

UPT 

OF 

NON-RATED  OFFICERS 

A26 
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THE 

ATTRITION 

RATE 
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ACAD. , 
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A29 
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IN 
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CONTINUE 

C 


PARTICULAR  YEAR, WEAPON  SYSTEM,  AND  PILTOT  TYPE, 

IS  THE  PILOT  INVENTORY, 

A2  IS  THE  PERCENT  REQUIRED  FOR  SOURCE  A, 

A5  IS  THE  ATTRITION  PATE  FOR  PEOPLE  LEAVING  SERVICE, 

ATTRITION  RATE  FOR  PEOPLE  LEAVING  WEAPON  SYSIEJ- 
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C  DESK  JOBS . 

C  SI  IS  THE  TRAINING  TIME  RE  OUI ft  ED  FOR  CCTS. 

C 

c 

C  READ  IN  RUN  DESCRIPTION. 

C 

RFAOI  S,  1000)  { CARD!  I  )  »  I  =  1,20) 

1000  FORMAT ( 20^4 ) 

C 

WRITE«6,)L00n  tCARDtl),  I  =  1,20) 

1001  FORMAT ( 1HI»25X*20A4) 

C 

C  READ  IN  BASE  YEAR,  LAST  YEAR,  AND  NUMBER  OF  WEAPON  SYSTEMS. 

C 

READIS, 1002)  I,  NBYRfNLYR,  NWPN 

1002  FORMAT  I 1 1 , 3X, 31 1 2  »  4X i  ) 

IFU.60.1)  GO  TO  2 
WRITEI6, 20011 

2001  FORMAT (36H1*1«  CARD  IS  MISSING  FROM  INPUT  DECK) 

CALL  EXIT 
C 
C 

C  REAO  Tl,  T 2,  T3,  T4,  S41,  S42,  S43,  A64,A3, Afe5,NA66, A67 
C 

C  Tl  IS  TRAVEL  ♦  LEAVE  TIME  AFTER  CCTS, 

C  T 2  IS  TRAVEL  ♦  LEAVE  TIME  AFTER  SURVIVAL  SCHOOL, 

C  T 3  IS  TRAVEL  ♦  LEAVE  TIME  AFTER  UPT, 

C  T4  IS  TRAVEL  +  LEAVE  TIME  BEFORE  UPT, 

C  S41  IS  TRAINING  TIME  FOR  THE  ACADEMY, 

C  S42  IS  TRAINING  TIME  FOR  RCTC, 

C  S43  IS  TRAINING  TIME  FOR  OTS, 

C  A64  IS  UPT  EXPANSION  TIME. 

C  A3  IS  NO.  OF  DESK  JOB  PILOTS  IN  BASE  YEAR, 

C  A65  IS  OTS  CAPACITY 

C  NA66  IS  I  IF  OTS  EXPANSION  IS  ALLOWED,  0  IF  OTS  EXPANSION  IS  NOT  ALLOWED. 
C  A67  IS  OTS  EXPANSION  TIME. 

C 

2  CALL  READ2(Tl,T2,T3,"’4,S4l,S42,S4  J,A44,  A3  »OUNMY ,  A63 ,  NAof>,  Af,7) 

C 

C 

C  READ  IN  NA7,  NA10,  N'*U,  NA12  FOR  ALL  WEAPON  SYSTEMS 
r 

\r 

C 

CALL  READ4 
C 
C 
C 

C  INITIALIZE  VARIABLES 
C 

b  NY  *  0 
XI  *  0. 

X2  *  0. 

X3  *  0. 

X3A  =  0, 

00  6  I  *  1,2 

00  6  J  -  ItNWPN 


on  o  noon  noon  o  non 
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DQ  fc  K  =  i » 3 
All  !,  J,K)  =  0* 

AS(  f, J,K)  =  0. 

A5A( l , J«K 1  =  G. 
iril.EO.i)  GO  TO  6 
A2(J,K)  =  0. 

INDCI J,K }  =  0 

6  CONTINUE 

00  7  I  =  1,21 
ICAPI I )  =  0 

7  Pi2m  =  0. 

on  e  i  =  I* nwpn 
DO  fi  J  =  1,21 
PTGIUJ)  =  0. 

PBSUfJ)  =  0. 

P9S(t,J)  =  G. 

PlOSIlfJ)  =  0. 

8  PHSII.J)  *  0. 

READ  A4,  A6,  A9,  A62,  A63,  A20,  A64,  S2,  S3  FOR  ONE  YEAR 
18  IFINYcEO.OI  NY  *  21 

REAOIS, 10041  I,  A4INYI,  A6(NY),  A9INY1,  A62INYI,  NA63INY), 
i  A20CNY),  S2 (NY 1 ,  S3( NY ) ,  NYR 

1004  FGRMAT(U,F4.3,5X,F5.4,SX,2(F6.0,4X),  11, 4X,  F6.0.4X, 

1  2IF5.0,5X),3X,I2) 

IF C I  .E0.6)  GO  TO  10 
WRITER. 1040) 

1040  FORMAT I 25H1A  TYPE  6  CARO  IS  HISSING! 

CALL  EXIT 

10  IF  C NYR.EQ. ( NY  ♦  NBY.V  1  GO  TO  lo 

I F € (NYR.EQ.NBYR) .AND* ( NY.EQ*21 ) 1  UO  TO  16 
HR  I TE ( 6, 1 1401 

1140  FORMAT  1 44H l TYPE  6  CARO  COES  NOT  CONTAIN  THE  RIGHT  YEAR) 
CALL  EXIT 


CONVERT  $2,  S3  FROM  DAYS  TO  FRACTIONS  OF  A  YEAR. 

16  S2CNY1  =  S2CNY1/365. 

S3INY  1  =  S3INY1/36S. 

IF, NY.EO. 21)  NY  =  0 

READ  IN  Al,  A2,  AS,  ASA  AND  SI  FOR  ONE  VEAR,  ALL  WEAPON  SYSTEMS  AND 
PILOT  TYPES. 

ICAV  =  0 

17  CALL  READ5(NY,N8YR,NW,NTP,IC) 


IFINY.NE.1)  GO  TO  19 
C 

C  IF  NY  is  FIRST  YEAR,  ACCUMULATE  INFORMATION  TO  COMPUTE  A? BAR . 

C  A29AR  WILL  REPLACE  A2  FOR  ALL  REQUIREMENTS  IN  FIRST  YEAR  FOR  WHICH 


. mini . i . . . .  n  I  Hi  . . .  >1  mi . . . . 
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C  THOSE  PILOTS  LEAVE  UPT  IN  THE  BASE  YEAR.  IF  THEY  LEAVE  BEFORE  OR  AFTER 
C  THE  BASE  YEAR  INFORMATION  ABOUT  THESE  PILOTS  WILL  NOT  BE  USED  IN 
C  COMPUTING  A2BAR. 

C 

Yl  *  1.  -  T1 

11  *  INT I Yl  ♦  ,5) 

IF( I l.f Q.O )  II  *  21 

Y2  -  VI  -  S 1 4  1 1,NW»NTP)  -  T2 

12  =  INTIY2  ♦  .5) 

Y3  *  Y2  -  S2II23  -  T3 
IFIY3.GT..5)  GO  TO  19 
IFIY3-LT. €—.5) »  GO  10  15 

IF  f  AH  2»NW»NTP)  .LT.fAH  l*NW»NTP)*(  1 A5f  l  *NW*NTPI  )  )  )  G'J  TO  19 

C 

C  ACCUMULATE  INFORMATION  TO  COMPUTE  A2BAR. 

C 

XI  *  XI  ♦  AH  1 ,NW*  NTP) *(  l .  -  A5(  i.NW.NTPJ  i 
X?  *  X2  ♦  AH  1 »NW,NTP) 

X3  *  X3  ♦  Alf2,NW,NTP) 

X3A  =  X3A  f  A5A<1,NW,NTP) 

IF  I  ABAC  1, NW,NTP ) . NE .0. )  ICAV  =  ICAV  ♦  1 
C 

C  SET  AN  INDICATOR  TO  INOICATE  THAT  THE  PILOTS  REQUIRED  IN  YEAR  1, 

C  WEAPON  SYSTEM  NW,  ANC  PILOT  TYPE  NTP  WILL  COME  FROM  THE  BASE  YEAR 
C  UPT  PIPELINE • 

C 

INDCINW,NTP1  =  2 
GO  TO  19 
C 

C  FOR  WEAPON  SYSTEM  NW  AND  PILOT  TYPE  NTP,  THE  PILOTS  REQUIRED  IN  THE 
C  FIRST  YEAR  WILL  LEAVE  UPT  BEFORE  THE  BASE  YEAR.  SET  INDC  =  l  TO  INDICATE 
C  THAT  THE  PILOT  REQUIREMENTS  WILL  BE  SATISFIED  FROM  CCTS  INVENTORY 
C  IN  THE  BASE  YEAR. 

C 

15  INOCINW.NTP)  =  l 
C 

19  IFUC.EQ.9I  GO  TO  20 
GO  VO  17 

20  IFf NY.NE.O)  GO  TO  11 
C 

GO  TO  61. 

C 

11  IFfNY.NE.U  GO  TO  21 
C 

C  COMPUTE  A2BAR 
C 

A2BAR  =  0. 

A5A8AR  =  0„ 

IFf ICAV. EQ.O)  GO  TO  27 
A5A8AR  -  X3A/ICAV 
27  IFfX3.EQ.Xl)  GO  TO  21 

A2BAR  =  A9f 21  )*t 1.  -  A6fNY))/{X3  -  XI) 

IF t A28AR.LE. 1. )  GO  TO  22 
23  IFf  X2.EQ.0. )  GO  TO  2A 

A5ABAR  =  A5A0AR  ♦  fA9(?l)*(l.  -  AfefNY))  ♦  XI  -  X3J/X2 
2A  00  26  I  =  1,NWPN 
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DO  26  J  «  1,3 

IF I INOCC I,JI.NEo2)  GO  TO  26 

X*  »  X4  ♦  All 1 «  I  *  J )*f  1  *  -  A5ABAR  -  A5tl,I,J)t 
26  CONTINUE 
A2BAR  a  0. 

IFHX3  -  XA)  • 60.0. )  GO  TQ  21 

A2BAR  *  A9C21 )*f l.  -  A6fNY)»/tX3  -  XA) 

GO  TO  21 

22  IF! A28AR.C-E.0.I  GO  TO  2i 
GO  TO  23 


21  PA  *  0. 

P5  *  0. 

00  50  NW  =  1* NWPN 
00  51  NTP  «  1,3 

IFtfNV.EU.lt.ANO.f lNDCfNW,NTPi.E0.2»  A2(NH,NTP)  *  A28AR 

FOR  A  PARTICULAR  YEAR,  WEAPON  SYSTEM  AND  PILOT  TYPE,  PI  IS  THE 
PILOT  REQUIREMENT  AND  PJ  IS  THE  PILOT  INVENTORY  AT  THE  END  OF  THE 
PRECEOING  YEAR. 

PJINTPI  a  Al(l,NW,NTP)*(l.~A5tl,NW,NTP)~A5AIl,NW,NTPn 
51  P1INW.NTP1  a  A1(2,NW,NTP1  -  PJCNTPJ 

CHECK  WHETHER  THIS  YEAR'S  TYPE  l  OR  TYPE  2  PILOT  REQUIREMENT  CAN  BE  FILLEO 
BY  LAST  YEAR'S  TYPE  2  OR  TYPE  3  PILOT  INVENTORY. 

PJ2  AND  PJ3  WILL  CONTAIN  THE  NO.  OF  UPGRADED  TYPE  2  AND  TYPE  3  PILOTS 
RESPECTIVELY. 

IFtPKNW,  D.LT.O.)  GO  TO  52 

IFtPKNW,  D.LE.fPJt  2)  ♦  PJI3JM  GO  TO  53 

PI  FOR  PILOT  TYPE  l  CAN  BE  PARTIALLY  FILLED  BY  LAST  YEAR'S  TYPE  2  AND 
TYPE  3  INVENTORY,  PJf  21  AND  PJI31. 

PIINW,2I  a  P1(NW,2)  ♦  PJf 2» 

PI INW, 31  *  PI (NW,3)  ♦  PJI3) 

PKNW.lt  *  PI  INW,  1 )  -  PJI2)  -  PJC3I 
PJfll  =  PJfll  ♦  PJI2)  ♦  PJf?) 

Pj2fNW)  •  PJf  2) 

PJ3INWI  a  PJf 3 } 

PJf  21  *  0. 

PJf 31  a  0. 

GO  TO  A9 

5?  PJ2CNWI  =  0. 

PJTtNWl  *  0. 

57  IFIPKNW, 2I.GE.0.)  GO  TO  55 
GO  TO  A9 

53  IFIPKNW,  D.LE.PJfZ))  GO  TO  5A 

PI  FOR  PILOT  TYPE  1  CAN  BE  FILLED  BY  LAST  YEAR'S  PILOT  TYPE  2  AND  TYPE  3 
INVENTORY,  PJf 21  AND  PJf  3) . 
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PJli!  *  PJIl)  ♦  PI  INW* i ) 
PHNW.n  =  PKNW.IJ  -  PJI2) 
P1CNW.2J  »  P1INW.2)  ♦  PJI2I 
PJI3I  *  PJI 3)  -  PlCNW,n 
P1INW,3)  *  P1{NM,31  ♦  PllNW,l) 
PJ2INW)  *  PJI 2 ) 

PJ3I NWf  »  PllNW.l) 

PJI2)  *  0. 

PltNMfll  *  0. 

GO  TO  57 


Pi  FOR  PILOT  TYPE  l  CAN  BE  FILLED  BY  LAST  YEAR'S  PILOT  TYPE  2  INVENTORY. 

54  PJI  1 1  *  PJI  II  ♦  PilftW*  1 1 
PJI 21  =  PJI 2)  -  PIINN.il 
PllNNt?!  *  PKNW.2)  ♦  PilNWf  1 ) 

PJ2INH J  *  PUNW.n 

PJ3INWI  *  0. 

PlINM«lt*0. 

IF  IFHNW*  3}  «GT.O.  )  GO  TO  57 
IFIPJI3I.LE.0.J  GO  TO  49 

55  tFIPllNM,2).LE.PJ{3))  GO  TO  56 

Pi  FOR  •ILCT  TYPE  2  CAN  BE  PARTIALLY  FILLEO  BY  LAST  YEAR'S  PILOT  TYPE  3 
INVENTORY. 

PUNWi2)  -  P1INM,2)  -  PJI 31 
PJC2I  *  PJI2J  ♦  PJI3) 

PI INW*  31  *  Pi (NW* 3)  ♦  PJI 31 
PJ3INWI  *  PJ3INWJ  ♦  PJI 31 
PJI3I  =  0. 

GO  TO  4 9 

PI  FOR  PILOT  TYPE  2  CAN  BE  FILLEO  BY  LAST  YEAR'S  PILOT  TYPE  3  INVENTORY. 

56  PJI3)  =  PJl 3}  -  P i CNN*  2 I 
PUNK,  3?  *  Pi I NW*  3)  ♦  P  l(  NW*  2  ) 

PJI2I  =  PJI 2)  ♦  PI INW,  2 1 
PJ3INWI  *  PJ3INW)  ♦  P 1 1 NW » 2 1 
PtINW,?l  *  0. 

GO  TO  49 

49  00  5C  NTP  *  i.3 

IFIPUNK.NTP)  .GE.C.)  GO  TO  30 

P2INW.NTPJ  *  0. 

P3tNW*NTPI  *  0. 


SURPLUS  FXISTS  «  LAST  YEAR'S  INVENTORY  tICEEOS  THIS  YEAR'S  RGCUIkEO 
INVENTORY. 


C 


IFINA7INW). E0.U  GO  TO  25 
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ASSIGN  SURPLUS  TQ  FIGHTER  GROUP 

P5  =  P5  -  ?l!NW*NTP» 

GO  TO  50 

ASSIGN  SURPLUS  TO  BOMBER/CARGO  GROUP 

25  p4  >  PA  -  PUNM'NTP} 

GO  TO  50 

PILOT  REQUIREMENT  EXISTS  PGR  PRESENT  YEAR,  GET  NUMBER 

Of  GRADUATES  OESlREO  FROM  EACH  SOURCE  IN  PRESENT  YEAR. 

NEW  PFOPLF  GRADUATES 

TO  imNY.EO.U.AND.(INDC(NW,NTP).CO.n}  GQ  TC  31 
P7tNWtNTP)  =  A2<NM,NTP)*P1(NW,NTPI 

CROSS  TRAINING  GRADUATES 

P3(NW,NT?1  *11,  -  A2(NW,NTP1 } *?1 (NW,NTP) 

GO  TO  SO 

T1  P2INN.NTPI  *  0. 

P3INW,NTP)  *  0. 

50  CONTINUE 

IE  NY  *  I,  CHECK  IF  THOSE  UPT  REQUIREMENTS  P2.  THAT  HILL  BE  TAKEN 
FROM  THE  BASE  YEAR  PIPELINE,  DEPLETE  THE  PIPELINE,  JF  NOT,  ADO  THOSE 

SURPLUS  PIPELINE  PILOTS  INTO  THE  DESK  JOB  INVENTORY  AT  END  CP  FIRST  YEAR. 

SURPtS  =  n. 

IFINY.NF.il  GO  TO  63 
PIPEL  =  0. 

00  65  I  *  1,NWPN 
00  65  J  =  1,3 

Iff INDCI I,Jl.NE.2)  GO  TC  65 
PIPEL  *  PIPEL  ♦  P2CI,J)/«l.  -  A6UJ1 
65  CONTINUE 

If IPIPFL.Gfc.ARI  2111  GO  TO  63 
SURPLS  *  (AR1211  -  PIPELi*!  1.  -  AhUll 

INITIAL J2F  P6  HHFRE  P6  HILL  ACCUMULATE  THE  DESK  JOS  INVENTORY  FOR  THIS  YEAR. 

63  P6INY1  =  0. 

IFINV.EO.IJ  GO  TO  101 
PP6  =  P61NY  -  l) 

GO  TO  102 
101  PP6  *  A3 

TRY  TO  TILL  REQUIREMENTS  FC8  ONE  YEAR,  ALL  WEAPON  SYSTEMS  AND  PILOT  TYPFS. 

132  NW  =  1 
NTP  *  l 
C 
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is  there  a  fiEw  people  requirement 
ioo  pu  *  c. 

P3A  *  P3t NW,Nf P) 
IFfP?!NW,NTP}.L6.3.)  GO  10  500 

THERE  IS  *  NEW  PEOPLE  REQUIREMENT 

INO  a  0 


CHECK  IF  ENOUGH  T |NE  HAS  ELAPSED  TO  TRAIN  NEW  PEOPLE 

GIVEN  YEAR  NY  TO  RE  THE  YEAR  IN  WHICH  PILOTS  ARE  NEEDED, 
II  IS  THE  END  YEAR  OF  CCTS, 

U  IS  THE  BEGINNING  year  of  CCTS, 

1?  IS  THE  END  YEAR  OF  SURVIVAL  SCHOOL, 

13  IS  THE  END  YEAR  OF  UPT. 


GOING  SACK  IN  TIME 


105  XN  =  NY 

XI  *  XN  ~  T1 

c 


IflJil.l  T.I-.5)  I  GO  TO  2C0 
II  *  INTIXI  *  .51 
IFfll.EQ.01  II  =  21 

C 

14  =  INTIXI  -  Sidl.Nw.NTP)  ♦  .51 
IFIU.FC.OI  U  *  21 
C 

c  X?  *  xi  -  Sl(U,NW,NTPl  -  T2 

IFlX2.LT.f-. 5)1  GO  TO  200 
I?  *  INTIX2  *  .SI 
IFII2.FQ.ol  12  *  21 
C 

X3  =  X2  -  S2I 12)  -  f 3 
C 

IMX3.LI.C-.5)i  go  TO  2C0 
13  *  INTIX3  ♦  .S) 

IF  I  l3.FQ.0i  13*21 
C 

*4  x  X3  -  S3II3)  -  T4 
C 

JFfXA.LT. f-. 5)  )  GQ  TO  2C'J 
C 

C  CNOUGHT  I I HE  HAS  ELAPS60 
C 

IP  I  PE  =  0 
C 

IF! INO.NF.O)  GO  10  250 
C 

C  NEW  PEOPLE  REQUIRED  TO  GO  INTO  CCTS  IN  YEAR  U 

UO  PU  =  P?(  NW.NTP)/*  l.  -  A6II1)> 

PUSINW.U)  =  PI  I  SINK,  14)  *  PU 

C  UPT  GRADUATES  NECESSARY  in  YEAR  13 


Pi2<m  =  P12II3)  ♦  Pii 
IF  €  lPIPE.Nfc.Ol  GC  TO  50C 

c 

C  CHECK  WHETHER  UPT  GRACUATES  NECESSARY  IN  YEAR  13  HAVE  ALREADY  eXCFEOEO 
L  UP?  CAPACITY. 

C 

C 

C  ICAPI 131  =01?  OPT  CAPACITY  HAS  NOT  BEEN  EXCEEDED. 

C  ICAPI 131  *  l  IF  U?T  CAPACITY  HAS  BEEN  EXCEECEO  BUT  UPT  EXPANSION  IS 
C  ALLOWED  AND  THERE  iS  ENOUGH  TINE  TO  EXPAND. 

C  I CAP? 1 3 1  *  2  IF  UPT  CAPACITY  HAS  BEEN  EXCEEDED  AND  EITHER 

C  II  NO  EXPANSION  St  ALLOWED  OR  21  EXPANSION  IS  ALLOWED  BUT  THERE  IS  NO 

C  TINE  TO  EXPAND. 

C 

l *>3  IF!  ICAPI  13I.EQ.0*  GO  TO  130 
IFIICAPiI31.EQ.il  GO  TO  154 
C 

C  ICAPI 131  *  2*  UPT  CANNOT  HANDLE  THESE  ADDITIONAL  PEOPLE.  CROSS  TRAIN 
C  THESE  PEOPLE  «P7). 

C 

iff I ND.KE.O)  GO  TO  1510 
P7  *  Pll 
GO  TO  150 
1510  P7  *  P13 
GO  TO  150 
C 

C  CAPACITY  HAS  NOT  ALREADY  BEEN  EXCEEDED. 

C  CHECK  WHETER  ADDITIONAL  UPT  REQUIREMENT  EXCEEDS  CAPACITY. 

C 

130  IF! (P12I I31*A20t 131  > .LE.A62I ! 31 1  GO  TO  154 
C 

c  CAPACITY  HAS  BEEN  EXCEEDED  FOR  FIRST  TINE  THAT  YEAR. 

C  CHECK  WHETHER  EXPANSION  IS  ALLOMEO. 

C 

IFINAfc3U31.E0.01  GO  TO  145 
C 

C  EXPANSION  IS  ALLOWED. 

C  CJECK  WHETHER  TINE  EXISTS  TO  EXPAND 
C 

IFHX4  -  Afc41.LT. 0.1  GO  TO  145 
C 

C  TINE  EXISTS 
C 

ICAPI I3|  =  l 
C 

C  SINCE  *JPf  HAS  BEEN  EXPANDED  THIS  YEAR.  !N  ALL  SUCCESS! V',-  YEARS 
C  UPT  REQUIREHNTS  CAN  ALL  BE  HANDLED. 

C 

NN  *  NIYR  -  NBYR 
II  *  13  ♦  l 
00  900  IJ  a  II, NN 
900  ICAPI 1J1  «  1 
~C 

GO  TO  154 
C 

C  NO  EXPANSION  ALLOWED  OR  NOT  TINE  TO  f  XPAND 


145  ?1  s  P12II3J  -  *62(13)  ♦  *20-113) 

ICAPII31  ^  2 

150  P12t 13)  -  *62 (13)  -  *20(13) 

pii  *■  pu  -  P7 

PHSINW* 14)  *  Pll$(NW*I4)  -  PI 
IFdNO.EQ.l)  GO  1C  155 

P3fNW,NTP)  *  P3<NW,NTP)  ♦  P7*41.  -  *6(11) I 
GO  TO  500 
C 

C  UPT  CAPACITY  MAS  BEEN  EXCEEDED  BUT  EXPANSION  !$  ALLOWED  *NO  THERE  IS 
C  ENOUGH  TIME  TO  EXPAND. 

C 

156  If I INO.EQ.O)  GO  TO  500 
GO  TO  600 
C 

155  NYEAR  *  NY  ♦  N&YR 

HR  I TE 1 6*4010)  NYEAP.*  NW*  NTP 

4013  FORMAT 1 27H0RE SERVES  HAVF  BEEN  CALLE0./5X,9HF0R  YEAR  ,12*liH*  HP.  S 
1YS.  .I2.13H,  PILOT  TYPE  •Ii*69H,  CROSS  TRAINING  REQUIREMENT  CANNOT 
2  8E  FILLED  THROUGH  CROSS  TRAINING. /5X.112HTHERE  IS  ENOUGH  TINE  TO 
3TRASN  NEW  PEOPLE.  BUT  UPT  CAPACITY  HAS  BEEN  EXCEEDED  AND  EITHER  EX 
4P ANSI ON  IS  «0T  ALLOWEO/5X*  43H  OR  THERE  IS  NOT  ENOUGH  TIME  TO  EXP* 
5N0  UPT. I 
C-0  TO  600 
C 

C  NOT  ENOUGH  TINE  TO  TRAIN  HEM  PEOPLE 
C 

200  !P*PE  »  l 

14  *  INTIX1  -  SKI  l.NW.NTP)  ♦  .5) 

IFII4.F0.0}  14  *  21 
C 

IFI2N0.NE.0)  GO  TO  151 

C 

P  =  P2CNW.MTPJ/4 1.  -  *61  ID) 

GO  TO  152 

151  P  *  P3f NW.NTPl/t 1.  -  Afcfllll 
C 

C  TRY  TO  FILL  REQUIREMENT  MITH  PIPELINE  PHOTS. 

C 

152  IFtP.GT.A9l 131 1  50  TO  160 
C 

C  NEH  PEOPLE  REQUIREMENT  LESS  THAN  PIPELINE 
C  *  ILL  REQUIREMENT  WITH  PIPELINE  PILOTS 

C 

A9I13)  *  A9SI3)  -  P 
C 

Iff IND.EQ.C)  GO  TG  110 
GO  TO  250 
C 

C  NEW  PfOPLF  REQUIREMENT  EXCEEDS  PIPELINE 
C 

160  PH  *  A9II3) 

P12U3J  =  PI21  13)  *  P II 
PI IStNW,  14)  *  PUSJNW.I41  <  PU 
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!F  NE*  PEOPLE  REQUIREMENT  CANNOT  St  f IlLtO  6V  PIPELINE.  CROSS  TR*IN  THE 

REMAINDER. 

IFCIND.EO.OI  GO  TO  165 

CROSS  TRAINED  PILOTS  DO  NOT  FILL  CROSS  TRAINING  REQUIREMENT.  AND 
THERE  IS  NOT  ENOUGH  TIME  TO  TRAIN  N£H  PEOPLE. 

NVEAR  *  NY  ♦  N8YR 

WRITE! 6.401 3)  NY6AR.  NX.  NTP 

il3  FORMAT I ??HORE SERVES  HAVE  BEEN  CALL £0. /5* . 9HFQR  YEAR  ,I2,11H,  HP.  S 
iYS.  «  1 2.13H.  PILOT  TYPE  .I1.69H,  CROSS  TRAINING  RSQU 'REME-TT  CANNOT 

2  RE  FILLED  THROUGH  CROSS  TRAINING. /5X, 102HTHERE  IS  NOT  ENOUGH  TIME 

3  TO  TRAIN  NEW  PEOPLE  ANC  THERE  ARE  NOT  ENOUGH  PIPELINE  PILOTS  T3  F 
4 ILL  DEFICIT.) 


CALL  RESERVES 
PRINT  ERROR  MESSAGE 

GO  TO  609 
C 

1*6  P7  *  P2I NM.KTP I  -  A9Ci31*il.  -  A6t!l)l 
A9II3I  =  0. 

P3INN.NTP1  *  P3INM.NTP1  ♦  P? 

C 

GO  TO  593 

250  PI3  *  P3tNx,NTPl/f  I.  -  A6IIU1 
PI1  *  Pli  *  Pi3 
PI21 1*1  *  P121 13)  P13 

P) iSINW*- i4|  »  PliSfNV.f*)  ♦  P13 

C 

IFI IPIPE.NE.O 1  GO  TO  600 
GO  TO  153 
C 

500  PR  *  9. 

P9  *  0. 

PIC  *  o. 

IFIP3(NW.NTP).GT«3.)  GO  TO  72-» 

C 

*03  *N  *  NY 

U  =  1NTIXN  -  T1  ♦  .51 

99  =  A5A( l.NV.NTP 1*A1 1 1 .Nw.NTPi  -  P10  ♦  A6! 111*8 P8»P9*P|0«P1 I 1 
P6INY1  =  PfcINY  1  ♦  P»* 

IFfP3<HN.NTP)-LE.O,5  SC  TO  6000 
IFI  I4.FQ.9991  GC  TG  3030 
PR$(Ntf.l4!  *  P8S('to*(4)  ♦  PS 
IF( I4I.EQ.9991  GG  TO  SwCO 
P9$f  NW»  141  F>3< NX. 141 1*  P9 

PI  OS  I  Nil*  1411=  PlOSfNW.  141)*  P10 
8090  P3F  *  IPS  ♦  P9  ♦  Pi03*I  1.  -  46111!) 

Pll  =  Pll*Il.  -  A6II111 
PTGINW.NY)  *  PTGINW.NYI  ♦  Pll  ♦  P?F 
GO  TO  S002 
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8002  NYf  A*  *  NY  ♦  KBYft 

A  *  *l<2*Ky*NT?)*A5f2tNW*NT»l 
AA  *  AII2*NV*NTF1*A5A{2*K»»W¥FJ 

c 

IFfNTF.EG.l)  UFG  -  0. 

Ir<MlP.G0.2)  Uf»G  *  PJ2(HU) 

IFiWTB.tQ.3l  UBS  *  PJ3I4*) 

C 

NRffEf4*20l21  NY£AR,NV*!n?,All2,»ni*i<m*A,AAt?UNV,N??}* 

1  F2(tttf.NTF!»  R1 1*  FJA,  F3F*  uFG 

2012  FGRKATf IHO* I2*4X# I2«4X* 11* 3X« F&.O* 1X*F9.2*2X*F9»2*2X*F9.2*3X 
1  F9.2*4X,F9.2*5X,F9.2*8X,F9.2«4X,F9.21 

ACCUMULATE  Y£Ak*S  TOTALS 

21  *  21  *  All 2*HW*NTF1 

22  *  22  ♦  A 

23  *  23  ♦  AA 

24  *  24  *  Pil  cm«ttTFJ 

25  *  25  ♦  PlfNS.KTPl 

24  *  2&  ♦  PU 
11  •  11  *  P3A 

25  »  28  *  P3F 
29  »  29  ♦  UBS 

LIKES  *  LINES  «  2 
IFiLlllES.Lr.551  SO  10  6C3 
UR ITS 14*2013! 

MAfTEf 4*20111 
LIKES  *  t 

403  iF(MfB.CE.3l  GO  TO  450 
NTT  *  NTT  ♦  1 
SO  TO  100 

453  IFf  AH.GE.KifBfd  GO  TO  730 
W  »  NT  ♦  1 
NTP  *  1 
GO  TO  100 


CHECK  CROSS  TRAINING  SOURCES  TO  FILL  CROSS  TRAINING  REQUIREMENT 

725  I WO  »  I 
XN  *  NY 

II  *  tMTIXN  <-  T1  ♦  .51 

14  *  iMTIXN  -  T1  -  SUf  l*m*NTR)  ♦  .5) 

IFU4.E3.C1  14  -  21 

IFII4.LT.01  14  »  999 

IP  STORES  THE  PREFERENCE  NO.  OF  THE  SOURCE  SEIKO  USED. 

750  IF«<*Y.NE.i>.GR.<!*OC<NK*wm.NE.iH  GO  TO  751 

15  *  3 

GO  TO  750 

751  IF  *  1 
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C  FIND  THC  SOURCE  W ITH  PREFERENCE  NO*  IP 

f. 

755  IFCNAiOfNWI.NE.tPJ  GO  TC  770 
C 

C  SOURCE  A  HAS  PREFERENCE  NO.  IP 
C 

:s  -•*  i 

GO  TO  760 

770  IFCNAil fNWJ.NE. IP )  GO  TO  780 
C 

C  SOURCE  8  HAS  PREFERENCE  NO.  IP 
C 

IS  =  2 
GO  TO  760 

780  IFfNAl2fNWJ.NE.!PJ  GO  TG  790 
C 

C  SOURCE  C  HAS  PREFERENCE  NO.  IP 
C 

IS  *  3 
GO  TO  760 
790  WRITEC6,  3090) 

3090  FORMAT I 74H1 PREFERENCE  NO.  HAS  NOT  BEEN  ASSIGNED  TO  ONE  OF  THE  CROS 
IS  TRAINING  SOURCES! 

CALL  EXIT 
r 

C  CHECK  WHETHER  ENOUGH  TIME  EXISTS  TO  CROSS  TRAIN  IN  THIS  SOURCE 
C 

760  XN  *  NY 
C 

IFUNTP.EU.U.AN0.mS.EQ.2).0R*(  IS.EQ.3)  ))  GO  TO  761 
S  =  SUIl.NW.NTP) 

141  *  14 
GO  TO  762 

761  S  =  SlUl,NW*2J 

141  =  INTCXN  -  T1  -  $  ♦  .5) 

IFfI4l.EQ.0J  141  =  21 
IFI I41.LT.0J  14  =  999 
C 

762  TIME  =  T1  ♦  S 
C 

IFfTIMe.tE.XN)  GO  TO  765 

IFf(NY.EQ.l). ANP. ( INDC fNW»NTP).EG.l)J  GO  TO  765 
C 

c  there  is  not  enough  time  to  cross  train  in  this  source. 

C  CHECK  WHETHER  THIS  SOURCE  HAS  PREFERENCE  3. 

C  IF  SO*  CALL  RESERVES. 

C  IF  NOT,  FIND  SOURCE  THAT  IS  NEXT  PREFERRED. 

C 

IP  *  IP  ♦  1 
IF f IP.GT.3)  GO  TO  767 
GO  TCI  755 
C 

C  ENOUGH  TIME  EXISTS  TO  CROSS  TRIN  IN  THIS  SOURCE 
C 

765  IFf IS.FQ. 3)  GO  TO  785 

If  f  INA7{NW).EQ.l). AND. US. EQ.U)  GO  TO  775 


OOOUO  OOOOOOO  UUOW  uuu  u  o  u  o  uooo 


P,  IC*  0) 


!F( (NATtNUl.EQ.O)  , AND.  US. 60.2  U  00  TO  t  75 
CALL  CR03SU6im#  P3(N«,MTP),  P5# 

GO  TO  800  ■ 

775  CAUL  CR0SSU6UH,  P3fNW,NTP),  P4,  -  P,  IC#  0* 

GO  TO  BOO 

785  CALL  CR0SSU6U1J,  P3(NW,NTP),  PP6*  P,  IC#  U 

800  IF«  IS.EO.l)  PR  *  P 

IFUS.CQ.25  P9  *  P 

I F f  IS. 60. 3 1  P10  *  P 

CHECK  WHETHER  SOURCE  HAS  FILLED  CROSS  TRAINING  REQUIREMENT. 

IC  *  1  MEANS  SOURCE  MAS  FILLED  REQUIREMENT. 

IC  *  2  MEANS  SOURCE  HAS  NOT  FILLED  REQUIREMENT 

tFUC.EQ.U  GO  TG  600 

PREFERRED  SOURCE  HAS  NOT  FILLED  CROSS  TRAINING  REQUIREMENT. 

CHECK  WHETHER  ALL  SOURCES  HAVE  BEEN  CONSIDERED. 

IF  NOT,  CHECK  FOR  NEXT  PREFERRED  SOURCE. 

IF  ALL  SOURCES  HAVE  BEEN  CONSIDERED,  CHECK  WHETHER  THE 

CROSS  TRAINED  PEOPLE  ARE  NEEDED  TO  SUPPLEMENT  NEW  PEOPLE  REQ. 

766  rp  *  IP  ♦  l 
IFfEP.LE.3I  GO  TO  755 
IFIIND.NE.Oi  GO  TO  105 

CALL  RESERVES 
PRINT  ERROR  MESSAGE 

767  NYEAR  «  NY  ♦  N8YR. 

WRITEI6, 40201  NYEAR, NW.NTP 

*020  FORMAT  1 27H0RESERVES  HAVE  BEEN  CALLE0./5X,9HF0R  YEAR  ,!2»11H,  WP.  S 
IYS.  , I 2,13H,  PILOT  TYPE  fI2,80H,  CROSS  TRAINING  REQUIREMENT  IWHICH 
2  INCLUDES  PART  OF  THE  NEW  PEOPLE  REQUIREMENTI/5X, 17HCANNQT  BE  FILL 
3ED.  ) 

GO  TO  600 

COMPUTE  THE  DESK  JOB  INVENTORY  FOR  YEAR  NY. 

700  IF! NY.feQ. I I  GO  TO  90 

P6INY)  »  P6INYI  ♦  II.  ~  A4( NY  -  l ) )*P6(NY  -  II  ♦  P4  ♦  P5 
GO  TO  95 

90  P6INVI  »  P6INYJ  ♦  U.  -  A4C2UI*A3  ♦  P4  ♦  P5  ♦  SURPLS 

SET  NUMBER  OF  UPT  GRADUATES  IN  BASE  YEAR 

Pl?f  21)  «  P12I2U  ♦  SURPLS/ll.  -  A6<  l>)  -  A20I21) 

95  IFCP6INY).GE.0.)  GO  TO  96 

DESK  JOB  INVENTORY  IN  YEAR  NY  IS  NEGATIVE. 

PROGRAM  EXECUTION  HAS  BEEN  HALTED. 

NYEAR  *  NBYR  ♦  NY 
WRHTCl6,97)  NYEAR 

97  FORMAT I39H10ESK  JOB  INVENTORY  *T  THE  END  OF  YEAR  ,!2,13H  IS  NEGATI 


non  on  o  noon 


IVE./38H0PKQGRA*  EXECUTION  HAS  BEEN  TERMINATED) 
CALL  EXIT 

96  00  60  J  =  1,NHPN 
00  60  K  *  i« 3 
A1U.J.KJ  *  Alt  2, J«K) 

AMl.J,*)  »  A5! 2, J,K ) 

A5A| It J,K }  *  A5AI 2, J*X) 

AU2.J.K1  *  0. 

A2I J«X )  *  0. 

A5f2,J,KI  *  0. 

60  A5AI2* JtX)  *  0. 

WRITE  YEAR'S  TOTALS 


WR|TEl6*6G2n  Zl,  Z2,  Z3,  Z4,  25,  26,  Z?,  Z8,Z9 

FORMAT 1 14H0YEAR* S  TQTALS,4X,F7.G,  1  X,F9.2*2X,r9.2,2X,F9.2, 3X,F9. 2, 
14X,F9.?,6X,F9.2,8X,F9.2,6X,F9.2) 


61  Zl  =  0. 

12  *  0. 

Z3  *  0. 

Z4  ^  0. 

ZS  *  0. 

Z  6  *  f . 

Z7  =  0. 

ZS  *  0. 

Z9  =  0. 

NY  *  NY  ♦  1 

IFINY.GT.INLVR  -  NBYR J I  GO  TO  2000 
WRtT£l6*2C10) 

2010  FORMAT I 1H1 ,47X, 37HPILOT  MODEL  OUTPUT  -  MAIN  INFORMATION//} 
WftITE(6,20ll) 

2011  FORMAT  1 3H0Yft,2X,6HWEA?0N,2X,5HPlLUT,2X,5HPIL0T,2X,9HL0SS  FR0M,3X, 

1  7HL0SS  TO, 3X,8hNET  REC/» 3X» l 1HN0.  DESIRED, 2X, 12HN0.  OBTAINED, 3X, 

2  UKSO.  DESIRED, 6X,12HN0.  OBTAINED, 6X,6HP!L0TS/73»3HSYS,4X, 

3  4HTYPF , 3X, 3HRE0, 6X, 4HUSAF , 4X , 9HDE SK  J08S,2X,9HSURPLUSES, 3X, 

4  8HTHRU  UPT,5X,3HTHRU  UPT *5X* 15HTMRU  X  TRAINING, 2X, 

5  15HTHRU  X  TRAINING, 3X , 3HUPGRA0E0/ 24X ,24HI YEAR • S  END) (YEAR'S  END)/ 
6) 

LINES  =  8 

GO  TO  IB 

2000  CALL  OUTPUTINBVR.NLYR.NWPN) 

WRITFI6.2020) 

2020  FORMAT I 1H1 ,45 X,42H INVENTORY  OF  DESK  JC8  PILOTS  AT  YEAR'S  END/ J 
NN  =  NLYR  -  NBYR 

00  925  I  =  1, NN 
NNY  =  I  ♦  NBYR 
925  WRt?E(6,202l)  NNY,  P6t I) 

2021  FORMAT  C IHO, I2,12X,F9»2) 


on  oooo  o  n  n 
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ftgAO  I*  A16*  ALT*  418*  *19,  420*  42?*  428*  *29  FOR 
THE  BASE  YEAS  AND  *LL  SUCCESSIVE  years 

CALL  RcADYINBYR) 

READ  IN  «ri,  *22*  *23.  *2*.  *25*  *26  FOR  THE  YEAR  AFTER  THE  RASE  YEAR 
ANO  ALL  SUCCESSIVE  YEARS 

■^ALL  RE#i*?;n£V'  • 


00  5015  I  *  1*25 
PP13UI  *  0. 
P14CU  *  0* 

P15I I  *  *  0. 

5015  P16IU  *  0. 


C 

C 

C 

C 

C 

c 

c 

C 

C 


CIV  fit  THE  UPT  GRADUATES  IN  A  PARTICULAR  YEAR  N*  COMPUTE  THE 
M.  OF  PILOTS  ENTERING  CIS  IN  YEAR  I3C.  RE  RCRD  IN  YEAR  UR, 

I ST THE  BEGINNING  YEAR  OF  UPT  IF  THE  ^AS*  WJ  1*  J|  vp,a 
IS  THE  LAST  YEAR  OF  COMMISSION  TftAINtNG  IF  THE  LAST  YEAR 


11 

12 


50t2 


OF  OPT  IS  N 

N  *  1 
XN  *  I* 

III  *  0 

CALL  TTIMECXN*S3«N|* 


TAtS4l*S42*SA3*Ii*l2*I3A,l3B*I3C*  A6T, 


1 3D) 


IFTP12IN} . EC.O » )  GO  TO  6000 


(FUl.E0.2Li  II  »  0 

If  UP.  -  li.LE.mi  GO  TO  501* 

K  «  II  ~  l 
J  =  III  *  l 
00  SOU  I  *  JfK 
A16IU  *  0, 

Ai?m  *  o. 

Aiatn  *  o. 

A19III  *  o. 

SOU  A20UI  =  o. 

c 

5014  IFU1.EQ.0)  II  *  21 

IF!  IIpNE.IIU  GO  to  5016 
A  *  0. 

GO  TO  5020 

C5016  AA-  Al6mi*U.-*2  .*N)  iAA17m)*Cl.“A22(N)HA18Un*U.-*24<«U 
A  =  AA*  A19II  l)*f  1.-A25INU 
IF(P IZCNl .GT* A)  GO  TO  5020 

C 

c  reduce  rotc  output 

f  A17IIU  =  IP\2(Nl-A*A17t  1 11*1 1.-A22IN)  })  /  ( 1.-A22CNI ) 

IF(AI?<  UI.GE.O.)  GO  TO  5030 
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NY  =  I?  *  NBYR 
IFU2.rQ. 211  NY  *  NBYR 
tfrtIT£{6, 51001  NY 

5100  FORNAf I 24H1R0TC  GRADUATES  IN  YEAR  ,I2,22H  Ny«B£R  LESS  THAN  7ER01 
GO  TO  5030 
C 
C 

C  KECVISENEN?  PRO*  ots 

c 

5020  F  a  #  P12IK#  -  *5/(1.  -  *231*1) 

PPt'fHl  =  PP13I  I2i  4  P 
GO  10  5035 
C 

C  OTS  ENTRANTS 
C 

5030  P  *  0. 

5035  P1MI3C!  *  P15H3C)  4  P/fl.  -  A2?U2)I 
C 

IF(P1*( I3t).L£.A65J  GC-  TO  5031 
C 

C  OTS  ENTRANTS  IN  YfAil  I3C  EXCEED  OTS  CAPACITY. 

C 

IFINA66.NE.11  GO  VO  5032 
C 

C  OTS  EXPANSION  IS  ALLOWED 
C 

lFH30.GT.2t)  GO  TO  5032 
C 

C  THEft  IS  ENOUGH  TINE  TO  £*?«! 0  OTS 
C 

GO  TO  5031 
C 

C  EITHER  OTS  EXPANSION  IS  NOT  ALLOWED  OR  THERE  IS  NOT  ENOUGH  TINE  TO  EXPAND. 
C 

5032  NN  *  1 3C 

IF1I3C.GT.201  NN=  20  -  13^.  ♦  1 
NYEAR  *  NBYR  4  NN 
WRITEI6,5033i  NYEAR 

5033  FORNAT ! 38HIQT S  ENTRANTS  EXCf "0  CAPACITY  IN  VfcAR  ,12/ 

171H  EITHER  EXPANSION  IS  NOT  GLOVED  OR  THERE  IS  NOT  ENOUGH  TJNC-  TO 
2  EXPANO.) 

C 

5031  IFIU.EU.ini  GO  TO  6001 
C 

C  AF  ACAO  FNTRANTS 
C 

P1SU3A)  =  A  16(111/11.  -  A27U2I) 

C 

C  RQTC  ENTRANTS 
C 

PI6U3B1  *  A17UU/U.  -  A28II2J) 

GC  TO  6001 
C 

6000  A16III)  *  0. 

A1TII1)  «  0. 

A18II1)  *  0. 


oo  (JO  ooo  u  o  oooo 


A19IIH  *  0.  -57- 

«20i it;  =  0* 

c 

6001  N  s  S  *  1 

XH  *  ?-H  *  I* 

Hi  =  II 

IF  UN  ♦  NSYRJ.tE.  NLYRI  GO  TO  501? 


N1  *  NLYR  -  N8YR 
IFIU.FC.2U  II  *  0 
IFl!l.GE.Nl)  GO  TC  5C50 


JG4Q 


N2  »  n 
00  =040 
AUIfl  > 
AI7! I f  * 
Aism  * 
Aiom  * 
A20UI  » 


►  i 

[  * 
0. 
0. 
0. 
0. 
0. 


N2*N1 


CALL  OUTPfNBYR,NLYR,PPi3*P12.P14.Pi5*Pi6,A20,IC*PI 

RETURN 

END 


SUBROUTINE  READ25  Ti*T2*  T3#T4«  S41  *  S42*  S43«  464»A3«Ci *  A65.M6A,  A67I 
READ  TYPE  2  INPUTS 

02  FORMAT Hi,4X« 8< F4.0,2X I ,2(F6.0. IX) ,F6.0, IX, I i,iX,F4.0) 
READ(S«?0G2)  t.  Tit  T2,  T3.  TA»  S41,  S42,  S43»  *64, A3, Cl, 

1  A65*  NA66,  A67 


IFIUEQ.2)  GO  TO  3 
NRITEI6.20C3) 

2003  FORMAT! jftHl* 2*  CARD  IS  MISSING  FROM  INPUT  DECK! 
CALL  EXIT 


CONVERT  INPUTS  FROM  DAYS  TO  FRACTIONS  OF  A  YEAR. 


3  TI»  Ti/365. 

T2»  T2/365. 

T3  »  T3/365. 

T4  «  T4/365. 

541  *  S41/365 f 

542  *  $42/365# 

543  «  S43/365. 
A64  *  A64/365. 
A67  *  A67/365. 


on  non  o  oo  on  non  o  n  o 


C 


RETURN 

END 
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5USRG0T INE  Kf  A04 

CPBMON/UEAP/  N4  7IC&},  KilOISO),  NAinSOI.  H412(601 
READ  TYPE  4  INPUTS 

1  REA3LS, 10031  !«  XU,  II,  12*  13,  14,  IC 
ICO  FORMAT!!  I,  I3.4X.4I  14,42),  39X,  ID 
If (I. YE. 41  GO  TO  2 

If HKV.tT.OUOft.<XW.GT.*On  GO  TO  3 

NA7(NK*  «  Ii 

NAIOINUI  *  12 

XAll(NW)  *  13 

NA12INN)  =  14 

Iff I£«FQ*9)  RETURN 
GO  TO  I 


2  wRITEf 6, 1020) 

1020  FORPATI82H1CARD  READ  IS  NOT  A  TYPf  4  CARO  -  CHECK  fOR  A  MISPLACED 
iCARO  IN  THE  TYPE  4  SECTION! 

CALL  EXIT 


3  NR I IE I 6* 1030} 

1030  FORMAT l 61 HI WEAPON  SYSTEM  NUMBER  ON  TYPE  4  CARO  EXCEEDS  ALLOWABLE  H 
1 UMBER ) 

CALL  EXIT 


RETURN 

END 


SUBROUTINE  READS! NY,NBYR,NW,NTP, IC } 

COMKON/OAlA/  All 2,80,3) ,  A2!80*3),  45(2,80,3},  45*12,80,3). 

1  Slf 21,80,31 

READ  TYPE  5  INPUTS 

REACI5, 1000)  I,  NYU,  NW,  NTP,  Yi,  Y2,  Y3,  V4,  Y5,  Y 6,  IC 
1000  FORMAT! I1,I3,4X,2( I4,4X},F6.0,4X,3(F6.4,4X),2(F4.0,2X},3X, *13 


go  o  o  uu  uu  uu 


if-  i  a>  t n  *■ 

M  »  writ  -  Hgya 
IFIN.ME.NY1  CO  TO  8 

Iff tMM.LT.OJ.OR.IHM.GT.SOH  CO  TC  <3 
Iff  lNfP.LT.0).OR*CNTP.GT.3)  J  GO  TO  10 
IftNY.Nf.Ol  CO  TO  16 
fl  *  1 
I?  *  ?! 

CO  TO  1? 

16  SI  *  2 
12  *  NY 

17  Al(il*Ntt,NTP)  *  Yi 
£?<Ntf»fcrP)  *  Y2 
A5I il,*tl«NTP J  *  Y3 
T5A!  !l»NW«NTP  J  *  YA 
lflNTP.liE.il  RETURN 

Sltt?.HM,H  *  YS/36S. 

$lt I2*MW,2I*  Y6/365. 

Sl( f2.HM.3J  »  SI? I2.HM. 21 
RETURN 


6  WR  I T€l 6# 1050) 

3  FORMAT {8GH1CARD  READ  IS  MOT  A  TYRE  5  CARO  -  CHECK  FOR  A  MISPLACED 
iCARO  IN  A  TYPE  5  SECTION! 

CAtL  EXIT 


8  WRITE 16* 1051) 

1  FORMAT (A6H1A  TYPE  5  CARD  DOES  MO?  CONTAIN  THE  RIGHT  YEAR! 
CALL  EAST 


9  MR  HE  1 6*  1052) 

1052  FORMAT f58Hl«tiPCN  SYSTEM  HO.  GN  TYPE  5  CARD  EXCEEDS  ALLOWABLE  NUMB 
16RI 

CALL  EXIT 


10  WRITE16* 1053) 

1053  FORMAT I57H1PIL0T  TYPE  NC.  ON  A  TYPE  5  CARO  EXCEEDS  ALLOWABLE  NU«BE 
1R) 

call  exit 


END 


SUBROUTINE  REA07INBYR1 

COMMON/ INFO!/  A]6t25)»  A17C2^J,  Ai8(22)»  A19I22), 
1  A27122H  A28(22)«  A29C22J 


o  n  o  o  no  non  non 


nc»ft  twftC  ■»  SsaSiiTC 

ntnw  f  «  *  »  *»•  v  “  v 


■40- 


CO  2  I  =  1,25 
AI6UI  =  0. 

2  ftlMU  *  0. 


NYR  -  N9YS 

1  *€40(5,20}  I,  NY,  11,  22*  X 3,  X4,  25,  Ifc,  XT*  X3,  IC 
20  F&RMAnn,3X,i2,5(F6.G,*X}*3(F4.3*2XJ,5X,Ill 
IFU.ME.7;  GO  TO  10 
tFtMY.N€«NYR|  GC  TO  11 
NT  »  NY  -  NBYR 
IF (NY.EQ.O)  NY  »  21 
HMwr)  *  xi 

A17IKY}  *  X2 
*16(10}  *  X3 
AiB(Mf)  *  X4 
*27 t NY I  =  Xfc 
A26INY}  *  *7 
A20SNY1  «  58 


Iff IC.EQ.9)  RETURN 
NYR  *  NYR  *  1 
GO  TO  1 

13  V*Ht(fc,  1000) 

1003  FORMAT (82H1CARD  READ  IS  NOT  A  TYPE  7  CARD  -  CHECK  FOR  A  MISPLACED 
ICARO  IN  Tk£  TYRE  7  SECTION} 

CALI  EXIT 

11  NRfT€i6,100U 

1031  FORMAT (46H1A  TYRE  7  CARD  DOES  NOT  CONTAIN  THE  RIGHT  YEAR) 

CALL  EXIT 

END 


SUBROUTINE  READS CN8YRI 

COMMON/ INF02/  421(21),  A22I21),  *23(21),  A2*(2U,  *25(211,  *26(21) 
READ  TYPE  6  INPUTS 
NYR  *  NBVR  ♦  1 

1  REA&(5,20}  t,  NY#  Xl,  X2,  X3,  *<r,  X5,  X6,  IC 
20  FORMAT! II, 3X,S2,6(F4.3, 2X1 ,37X*ll! 

IFII.NE.8)  GO  TO  10 
IFINY.NE.NYR>  GO  TO  11 
NY  =  NY  -  NBYR 
A2KNY}  *  XI 
A22INY1  *  X2 
A23INY «  *  X3 


n  n  n  o  o  n  n  n  n  n  nonon  n  n  a  n  n  r<  n  n  on 


=  Si 
A?SiNYi  *  X5 
A2MNYJ  -  X* 


IF*  IC.rQ.'iJ  RfcTyRN 
n%a  s  NYR  *  l 
CO  TO  t 

1 6  KfUIEI&.iOOOJ 

000  Fi5A*AHi2HlCAR3  HEAD  IS  NOT  A  TYPE  8  CARD  -  CHSCR  FOR  A  *ISPLA€=£ 
ItA*D  IN  Th*  TYPE  S  SECTION! 

CALI  EXIT 

it  i»nEifc«;~ou 

coi  fo*pah;**hia  type  s  card  does  mi  contain  the  right  tea*i 

CALL  5KI! 

cam 


SUBROUTINE  CROSS! AfciP3, PI.  P.iC.IFLASJ 

DETERMINE  WHE.Hf*  CROSS  TRAINING  -REQUIREMENT  P3  C*3*  8£  FRIES 
ST  A  GIVE*  SOURCE  CF  PILOTS  NUMBERING  Pi.  IF  If  LAG  *  0«  THE  SOURCE 
IS  EITHER  FIGHTER  0*  8GMBES/CARGG.  IF  I FLAG  *  1*  THE  SOURCE  IS 
DESK  JOBS. 

PP  *  P3/U.  -  AAI  -  PI 
IFf PP.LE.C.i  GO  TO  10 

TIC  CROSS  TRAINING  RIWITEIES?  C6WCI  IE  COMPLETELY  FILLED  83  THE 
GIVEN  SOURCE-  USE  THE  PI  PILOTS.  RETURN  TO  TsE  MAIN  ROUTINE  TO 
DETERMINE  THE  NeXT  PREFERRED  SOURCE  TO  FILL  THE  DEFICIT. 

P3  *  P3  -  ?T*U.  -  A61 
P  S  PI 

pi  *  o. 

ic  *  ? 

RETURN 


THE  CROSS  TRAINING  REQUIREMENT  CAN  8?  COMPLETELY  FILLED  ST  IhF 
GIVEN  SOURCE. 

10  IFUFLAG.EO.il  GO  TO  IS 

THE  GIVEN  SOURCE  SS  EITHER  FIGHTER  OR  B0M8ER/CARS0. 

PI  *  PI  —  P3/U-  -  A6! 

GO  TO  20 

THE  GIVEN  SOURCE  IS  DESK.  DG6S. 


c 


-62- 


15  PI  *  PI  -  P3 
20  P  =  P3/«l.  -  A6) 
1C  *  1 
HE TURN 
END 


SUBROUTINE  0UTP!N8YR»NLYR,PP1 3»PI?,P14,P15,P16«A20» 1CAP) 

COMMON/ INFO!/  Al6!25),  Al 74  251.  AIB{2 25,  A19(?2), 

1  A27 i 22 ) »  A28(22l,  A29U2) 

01  MENS  ION  PP13U),  P12C1),  P14<1),  P1511),  P16U).  !C AP< 1 ) , A20! 22 ) 
C 

WRITE(6,10) 

10  FORMAT (iHl»45X*40HPIL0T  MODEL  OUTPUT  -  COMMISSION  TRAINING// 

1  3H0YR,5X, 16HAF  ACAD  EN THANT S , 5X , 1 7HAF  ACAC  GRADUATE S , 5X » 

2  13HR11TC  ENTRANTS, 5X,14HR0TC  GRACUATE  S  ,5X  ,  12H0TS  ENTRANTS, 5X, 

3  13H0TS  GRADUATES/ ) 

C 

N  =  25 

30  NYR  =  N8VR  -  !  N  -  21) 

15  WRITE! 6,20)  NYR ,  P15!  N )  ,  Ai6<  N)  ♦  P16!  N >  ,  A17  (  N )  ,  P14  (  N)  ,  P?i  3 (  N> 

20  FORMAT  !  iHO,  I2»9X,FR.2,l2X,F9.2,lLx»F9.2,l0X»F9.2»9X»F9.2, 

1  BX, F  9 • 2 ) 

IFiN.LE.20)  GO  TO  25 
M  *  N  -  i 

IF1N.GT.20)  GO  TO  30 
N  a  0 

NYR  =  NBYR 
25  N  *  N  ♦  l 

NYR  =  NYR  ♦  1 
TFtNYR.GT.NLYR)  GO  TO  5C 
GO  TO  15 
C 

50  WR I ?E! 6, 100 ) 

ICO  FORMA T(1H1,33X,55HP1L0T  MODEL  OUTPUT  -  ENTRANTS  INTO  UPT  FROM  SIX 
1 SOURCE S//3H0YR,4X,7HAF  ACAD, 6X ,4HKUTC , fcX, 3H0T5 ,5X , 1 OHRATED  OFF.  , 

2  4X,9HNQN~RA7E0,4X,6K0THERS,4«,9HTuTAL  UPT ,4X , 9HT0T AL  UPT,4X, 

3  13HUPT  EXPANDED  /55X  , 4H0FF .  ,  l  7X, bHENTR ANTS  »*>X  , 5HGRADS/ ) 

C 

N  =  21 
NYR  =  NBYR 

120  SUM  =  A 1 6 ( N )  ♦  Al 7 ( N)  ♦  AlbIM  *■  A19IN)  ♦  A20IN)  ♦  PP13(N) 

C 

IF  I ICAPCN) »NE • 1  *  GO  TU  125 
C 

WRITE  16, 1 21)  NYR,A16{N),A17{N)vPP13IN),Al8(N),Al9{N),420lN), 

1  SUM,PT2tN) 

121  FORMAT! IHC, 12, 3X , F9. 2 , 2X, F9 . 2 , IX , E 9. 2 ,2X , F9. 2 , 5X , F9. 2 , 2X ,  F 9. 2  , 

2  3X,F9.2,4X,F9.2,9X,3HYf S) 

GC-  TO  130 

C 

125  HR  I TF to, 1 26)  NYR, Al 6! N ) , A 1 7! N ) , PP 1 3! N ) , Al 8 { N) , Al 91 N ) , A20! N ) , 


1  SUM, P12<  N l 

126  F0RMAniHC*I2,3X,F9.2,2X,F9.2,lX,F9.2,2X,F9,2»5X,F¥,2,2X,F9.?, 

2  3X»F9.2#4X,F9.2» 10X, 2HN0) 

C 

130  IF(N.FQ.2t)  N  *  0 
N  =  N  ♦  l 
NYR  *  NYR  ♦  1 
IF(NYR.GT.NLYR)  RETURN 
GO  TO  120 
C 

END 


SUBROUTINE  OUTPUT <NBYR,NLYR,NWPN) 

C(1MM0N/SAV£/  PTG( 80, 2 1  J  «  P8$<30,21),  P9S<8Gf21)»  P10S(80,21), 

1  P11SIPO, 21) 

DO  100  I  =  l«  NWPN 
WRlTEC6,lO)  I 

U  FORMAT! 1H1,45X,41HPIL0T  MODEL  OUTPUT  -  PILOTS  ENTERING  CCTS/58*, 

1  14HWEAPGN  SYSTEM  *12//) 

WRITE!6,U) 

11  FORMAT (3H0YR»4X,8HFR0M  UPT,4X, 16HFKGM  SIMILAR  A/C,4X, 19HFR0K  DISSI 
1MILAP  A/C.4X, 14HFR0M  DESK  J0BS»4X, 14HT0TAL  ENTRANTS, 4X, 

2  15HTOTAL  GRADUATES/) 

.J  =  0 

5  IFlJ.fiC.O)  J  *  21 

SUM=P<?S!  I,J)*P9SU,J)  +  PlQSU,  J)+P11S(  I,J> 

IF!J,tg.21)  GO  TO  6 
NYEAR  =  NBYR  ♦  J 

WRITE  16,12)  NYFAR,P11S(  I, J)»P8S( I. J)»P9S( I  ,  J ) , P 1  OS ( I , J ) t SUM, 
l  PTGI l , J  ) 

12  FORMAT ( l HO, I2,3X,F9.2»8XtF9.2,l3X,F9.2»l0X»F9.2»l0X»F9.2,9X,F9.2) 
GO  TO  7 

6  WRITE  16, 12)  NBYR ,P11S(I»J),  PHS(l.J),  P9S!I,J),  P10SCI,J),  SUM 

7  IFU.E0.21I  J  =  0 
J  =  J  ♦  1 

IHIJ  ♦  NRYR)  .GT.NLYR)  GO  VO  100 
GO  TO  6 
100  CONTINUE 
RETURN 
END 


SUBROUTINE  TT IMF  I  XW,  S3 , T4 , S4 1 , S4? , S43 , 1 1 , I  2 , ! 3 A, I 3B , I 3C , A6?, I  30 ) 
C 

1  XI  =  XN  -  S3 

IFIXl.LF.C.)  GO  TO  5 
II  =  INTIXI  ♦  .5) 

I F ( Il.EO.O)  1 1  =  21 


* 


GO  TP  6  “64- 

5  Xll  =  -XL 

11  a  [ NT { X 1 1  +  .5)  ♦  21 

C 

C  II  IS  THE  BEGINNING  Yt AR  Of  UPT 

C 

ft  x?  =  xi  -  ta 

IM  X2.U  .0.3  GO  TO  7 

12  =  INTIX2  ♦  .3) 

IF (  I2.EG.O)  12  =  21 
GO  TO  0 

7  X?l  -X2 

12  =  I  NT ( X21  ♦  .0)  ♦  21 
C 

C  12  lb  THt-  ENDING  YEAR  CF  COMMISSION  TRAINING 
C 

8  X3A  a  X?  -  SA1 

IF(  Y3A..Lfe.O.)  GO  TO  9 
1 3 A  =  INTIX3A  ♦  .5) 

IF  t I3A.EC.OJ  I3A  a  21 
GO  TO  10 
T  X31  =  -X3A 

1 3 A  =  INTIX31  ♦  .5)  ♦  21 
C 

C  1 3A  IS  Tl'E  FUST  YEAR  OF  AF  ACAD  TRAINING 

C 

10  X3«  =  X2  -  S42 
IMx3».tt.G.)  GO  TO  11 
130  =  INTIX3B  ♦  .Si 

IF ( I 3n .EU.O)  1 38  a  21 
GO  TP  12 

11  X  3 i  =  -X3B 

1 30  =  INTIX31  ♦  .51  ♦  21 
C 

C  I  3B  IS  TnE  FIRST  YRArt  OF  RCTC  TRAINING 
C 

12  X“C  =  X2  -  SAT 

If IX3C.LE.0.)  GO  TO  13 
I3C  =  I N  T  ;  X  3C  <  .5) 
ir-1  53C.EJ.O)  I3C  =  21 
GO  TO  1"* 

13  X31  a  -X3C 

I3C  =  INTU31  ♦  .5}  ♦  21 
C 

C  I3C  IS  THE  FIRST  YEAR  0?  OTS  TRAINING 

C 

1A  X3D  =  X3C  -  Aft 7 

lF<X3n.L6.3.)  GO  TO  15 
I3D  a  INTIX3D  *  .5) 

If (  130.60.3)  I  3D  =  21 
GO  TO  16 
15  X  3 1  =  -X3P 

1 3D  a  INTIX31  *  .ft)  ♦  21 

1 30  IS  ThF  f  IKST  YEAR  OF  UTS  IF  OTS  IS  EXPANDED 


<!  Uj 


w 


E 

C 

C 


DOCUMENT  CONTROL  DATA 


